AD-R125  263 
UNCLASSIFIED 


NEUROPHVSIOLOG ICAL  BASES  OF  EVENT-RELATED  POTENTIALS 
<U>  SRI  INTERNATIONAL  MENLO  PARK  CA  LIFE  SCIENCES  DIV 
C  S  REBERT  ET  AL.  JUN  83  AFOSR-TR-83-0902 
F49620-82-K-0016  F/G  6/16 


F/G  6/16 


ft) 

>1 


4 

* 


AFOSRTR-  S3 


0902 


NEUROPHYSIOLOGICAL  BASES 
OF  EVENT-RELATED  POTENTIALS 


Annual  Report  No.  1 

June  1 983 


D"HO 


By:  Charles  S.  Robert  and  William  J.  Donovan 
SRI  International 

and 

Karl  H.  Pribram  and  Jeffrey  E.  Evans 
Stanford  University 


Prepared  for: 

AIR  FORCE  OFFICE  OF  SCIENTIFIC  RESEARCH 
Life  Sciences  Directorate 
Bolling  AFB,  D.C.  20332 

Attention:  Dr.  Alfred  R.  Fregly 
Program  Manager 


>- 
CU 
C D 
CJ> 


AFOSR  Contract  No.  F49620-82-K-001 6 
SRI  Project  LSU  4373 

* 

Approved  for  public  release  | 
distribution  unlimited.  , 

SRI  International 

333  Ravenswood  Avenue 

Menlo  Park,  California  94025 

(415)326-6200  ) 

TWX:  910-373-2046  ; 

Telex:  334  486 


83  11  29204 


NEUROPHYSIOLOGICAL  BASES 
OF  EVENT-RELATED  POTENTIALS 


Annual  Report  No.  1 

June  1983 

By:  Charles  S.  Robert  and  William  J.  Donovan 
SRI  International 

and 

Karl  H.  Pribram  and  Jeffrey  E.  Evans 
Stanford  University 

Prepared  for: 

AIR  FORCE  OFFICE  OF  SCIENTIFIC  RESEARCH 
Life  Sciences  Directorate 
Bollinq  AFB,  D.C.  20332 

Attention:  Dr.  Alfred  R.  Fregly 
Program  Manager 

AFOSR  Contract  No.  F49620-82-K-0016 
SRI  Project  LSU  4373 


UNCLASSIFIED 


SECURITY  CLASSIFICATION  OF  THIS  PAGE  (When  Data  Entarad) 


REPORT  DOCUMENTATION  PAGE 


READ  INSTRUCTIONS 
BEFORE  COMPLETING  FORM 


1.  REPORT  NUMBER 


nsr  wn  a  nwRivsn  _  -  A 

AFOSR-TR-  83-  0902 


2.  GOVT  ACCESSION  NO. 


3.  RECIPIENTS  CATALOG  NUMBER 


4.  TITLE  (and  Subtltla) 

Neurophysiological  Bases  of  Event- 
Related  Potentials 


5.  TYPE  OF  REPORT  &  PERIOD  COVERED 

Annual:  1  May  1982  - 
30  April  1983 


6.  PERFORMING  ORG.  REPORT  NUMBER 


7.  AUTHOR(i) 

Charles  S.  Rebert,  William  J.  Donovan 
Karl  H.  Pribram  and  Jeffrey  E.  Evans 
(Stanford  University) 


8.  CONTRACT  OR  GRANT  NUMBERIs) 

F49620-82-K-0016 


B.  PERFORMING  ORGANIZATION  NAME  AND  ADDRESS 

SRI  International,  Life  Sciences  Division 
333  Ravenswood  Ave. 

Menlo  Park,  CA  94025 


10.  PROGRAM  ELEMENT.  PROJECT.  TASK 
AREA  &  WORK  UNIT  NUMBERS 


61102F  2313/A4 


11.  CONTROLLING  OFFICE  NAME  AND  ADDRESS 

Air  Force  Office  of  Scientific  Research/NL 
Bolling  AFB,  D.C.  20332 


12.  REPORT  DATE 

June  1983 


13.  NO.  OF  PAGES 


IS.  SECURITY  CLASS,  (of  thia  report) 

Unclassified 


F 


14.  MONITORING  AGENCY  NAME  ft  ADDRESS  (if  diff.  from  Controlling  Office) 


16a.  DECLASSIFICATION  /  DOWNGRADING 
SCHEDULE 


Auu oas 1 on  B ot 


IS.  DISTRIBUTION  STATEMENT  (of  thil  report) 

Approved  for  public  release.  Distribution  unlimited. 


*X>  «U|I 
•HI  HI 

Unamnsunced 

Jftstifisatiefc. 


3 


17.  DISTRIBUTION  STATEMENT  (of  the  abstract  entered  in  Block  20.  If  different  from  report) 


By_ 


Distribution/ 


Availability -eodot 


18.  SUPPLEMENTARY  NOTES 


Dl«t 


ft 


Avail  as«/or 
Special 


19.  KEY  WORDS  (Continue  on  raveree  aide  if  necanery  and  identify  by  block  number) 

Neurophysiology  Monkeys  Intention 


Event-Related  Potentials 
Brain  Slow  Potentials 
.Subcortical  Nuclei 


Workload 

Biocybernetics 

Cognition 


Reaction  Time 
Massed-Unit  Activity 
P300 


$0.  ABSTRACT  (Continue  on  revert*  tide  if  necettery  end  identify  by  block  number) 

'In  order  to  more  fully  understand  the  physiological  and  psychological  significance] 
of  event-related  potentials,  cortical  and  subcortical  recordings  are  being 
obtained  from  monkeys  performing  in  operant-conditioning  tasks.  Six  animals  were 
trained  on  initial  phases  of  the  cued  reaction-time  task  at  SRI  International 
and  were  subsequently  Implanted  with  electrodes  capable  of  recording  transient 
and  sustained  evoked  potentials  and  massed-unit  activity.  TWo  monkeys  were 
trained  on  initial  phases  of  an  "oddball"  task  at  Stanford  University,  and. 

(Continued  on  reverse) 


7 


DDr,1473 

COITION  OF  1  NOV  M  IS  OMOLETC 


UNCLASSIFIED 


SECURITY  CLASSIFICATION  OF  THIS  PAGE  (Whan  Date  Entered' 


.N.’. 


UNCLASSIFIED 


Security  Classification  of  this  Page  (When  Data  Entered) 
ABSTRACT  (Concluded) 


P 


electrodes  are  being  prepared  so  that  the  subcortical  generators  of  the  P300 
wave  can  be  assessed  in  these  animals.  An  LSI-11/23  computer  system  was 
Installed  at  SRI  to  Implement  the  cued  reaction-time  task  and  to  collect 
event-related  potentials.  Preliminary  recordings  of  slow  potentials  and 
massed-unit  activity  were  collected  from  the  lateral  geniculate  nucleus  of 
one  cat  to  evaluate  the  performance  of  modified  amplifiers,  and  transient 
(P300)  and  sustained  (contingent  negative  variation)  evoked  potentials  were 
recorded  from  the  scalps  of  human  subjects  to  confirm  appropriate  performance 
of  the  laboratory  system,  yf. 


my 


Table  of  Contents 


List  of  Figures 
Acknowledgments 


Background  and  Purposes 


Man-Machine  Systems . 

Event-Related  Brain  Potentials 
Basic  Research  in  Animals.  .  . 
Choice  of  Experimental  Paradigm 
General  Purposes  . 


Preparation  of  Facilities  and  Equipment 


General  Stages  of  Preparation . 

Iconix  Logic  Unit  for  Preliminary  Training 
LSI-11/23  Computer  and  Related  Components. 


a.  Hardware  Configuration. 

b.  Software  Development.  . 


Verification  of  System  Performance. 


Preliminary  Activities  with  Monkeys 


1.  Quarantine,  Housing,  and  Care. 

2.  Preliminary  Training  .  .  .  .  . 

3*  Operant  Conditioning  . 


Surgical  Preparations 


1 .  Placements 

2.  Electrodes 

3.  Surgery.  . 


Electrode  Tests  in  Monkeys. 


P300  in  Monkeys  in  Response  to  Visual  Cues 
(Stanford  University)  . 


Background  . 

Facilities  and  Equipment 
Test  Paradigms  . 


AIR  FORCE  OBI  CE  OF  FOIESTIFI C  <  »«<* 

NOTICE  OF  T/.V.’ "'V  7?'!  "ODTIC  ^  ^  ^  t,, 

v  This  tech;'  L v  ‘  ,  1o'-12. 

approved  for 

Dlstributio  )  :  -  'u 

Chief ^8 chn i o a  1  Information  Division 


•in 


_ md 


4.  Electrodes  and  Placements .  31 

5.  Preliminary  Behavioral  Results  .  31 

H.  Problems  Encountered  and  Solutions.  ....  .  32 

I.  Plans  for  the  Coming  Year .  34 

J.  Publications  and  Presentations .  35 

K.  List  of  Professional  Personnel.  . .  35 

References . 37 

Appendix  A:  Iconix  Logic  Schematic .  A— 1 

Appendix  B:  LSI-11/23  Program  Listings .  B-l 


List  of  Figures 


1*  Logic  schematic  of  the  cued  reaction  time  task .  7 

2.  Schematic  of  computer  system .  9 

3*  CNV  and  square  wave  recordings  with 

0.01  to  100  Hz  bandpass .  18 

4.  Examples  from  one  S  of  vertex  potentials 

evoked  by  rare  tones  In  an  "oddball"  task,  and 


the  peak-to-peak  P300  amplitude  as  a  function  of 

the  percentage  occurrence  of  rare  tones .  19 

5.  Tone  evoked  potentials  from  supraorbital 

ridge  (EOG),  right  parietal  cortex  (R.  PAR.), 
anterior  white  matter  reference  (ANT.  REF.),  and 
midbrain  reticular  formation  (MRF),  with  respect 


to  the  posterior  white  matter  reference  .  27 

»  6.  EE6  records  from  one  monkey  showing 

minimal  effects  of  blinks  and  eye  movements 

on  cortical  and  subcortical  recordings .  28 


Vil 


Acknowledgments 


The  authors  thank  Ms.  Margaret  Harrington  for  her  participation  in 
the  work  at  Stanford,  and  Ms.  Rosie  McCormick  and  Ms.  Amy  Olson  for 
typing  this  report. 


% 


% 


ix 


1 


* 


Man-Machine  Systems 

The  modern  fighter  pilot  is  primarily  an  "executive" — an 
information-processing  and  decision-making  element  of  a  complex  man- 
machine  system.  The  almost  overwhelming  amount  of  information  to  be 
processed  from  displays  related  to  flight-systems  status,  navigation, 
communications,  weapons-threat  warning,  radar,  imaging  sensor  systems, 
and  situational  displays  has  precipitated  the  need  for  improvements  in 
the  engineering  of  cockpit  displays  and  in  the  understanding  of  the 
human  operator's  information-processing  characteristics  (Relslng,  1980; 
Furness,  1980)  and  workload  parameters  (Moray,  1978).  Although  the 
human  operator  is  generally  regarded  as  the  weakest  link  in  man-machine 
systems,  the  human  element  is  critical  if  systems  are  to  retain  the 
capability  of  reacting  intelligently  and  imaginatively  to  unanticipated 
conditions  (Gomer  et  al.,  1979). 

Because  pilot  workload  is  now  primarily  "mental,"  the  concepts  and 
procedures  of  cognitive  psychology  are  particularly  relevant  to  the 
solution  of  workload  problems  and  man-machine  interfacing.  Cognitive 
psychology  has  undergone  a  striking  revolution  within  the  last  quarter 
century,  involving  greater  emphasis  on  concepts  such  as  information- 
processing  (Simon,  1980)  and  intention  (Jung,  1981;  O'Connor,  1981). 
Early  behaviorists  generally  considered  "cognitions"  such  as  thoughts, 
feelings,  evaluations,  and  expectancies  as  epiphenomena  that  had  no 
relevance  to  the  mechanics  of  actual  behavior,  which  was  conceived  to 
flow  from  particular  stimulus  events.  However,  as  recently  emphasized 
by  O'Connor  (1981)  ,  Jung  (1981),  and  Donchin  (1980),  intentions  and 
goals  precede  and  precipitate  (rather  than  result  from)  perceptual, 
attentional,  and  behavioral  strategies. 

Although  the  information-processing  revolution  has  led  to  a 
synthesis  of  several  dimensions  of  psychological  research,  there  remains 
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a  large  gap  In  explanations  of  cognition  in  that  little  is  known  about 
its  neural  substrates.  A  complete  understanding  of  human  thinking  will 
probably  not  be  possible  until  the  neural  processes  underlying  symbol 
manipulations  can  be  specified  (Simon,  1980).  Obviously,  the  more 
complete  our  knowledge  of  cognitive  processes,  the  more  thorough  will  be 
the  solution  of  problems  relating  to  the  efficiency  of  man-machine 
systems . 

2.  Event-Related  Brain  Potentials 

The  only  direct  indications  of  brain  function  routinely  available 
to  the  psychophysiologist  are  electric  fields  accompanying  "spontaneous" 
and  event-related  intracerebral  activity.  The  slow-wave  (1-20  Hz) 
electroencephalogram  (BEG)  provides  a  very  general  index  of  the 
patterning  of  "activation"  across  the  cerebral  mantle.  Such  measures 
can  be  useful  in  assessing  the  extent  to  which  various  cortical 
regions— for  example,  the  left  and  right  hemispheres — are  differentially 
involved  in  various  types  of  tasks  (Rebert,  1980a). 

Event-related  potentials  (ERPs)  are  patterns  of  electric  change 
associated  with  the  occurrence  of  fairly  discrete  external  or  internal 
events— a  flash  of  light,  a  decision.  Various  components  of  ERPs 
reflect  activity  in  different  regions  of  the  brain  and  different 
informat ion-processing  functions,  but — with  few  exceptions — the  exact 
source  of  the  potentials  and  their  precise  relationships  to  cognition, 
effort,  motivation,  and  overt  behavior  are  unknown.  These  potentials 
range  from  the  very  specific  click-evoked,  high-frequency  burst  of  waves 
generated  in  brainstem  auditory  structures  (volume-conducted  to  scalp 
electrodes)  to  long-lasting  DC  potentials  of  the  cortex  related  to 
anticipatory  processes.  Although  ERPs  are  composite  reflections  of  a 
myriad  of  intracerebral  transactions  and  their  true  form  is  distorted  by 
tissues  between  the  cortex  and  scalp  recording  electrodes,  they  are 
extremely  useful  tools  for  assessing  the  functional  integrity  of  the 
nervous  system  (Regan,  1972;  Amlnoff,  1980;  Rebert,  1980b).  ERPs  have 
been  the  focus  of  interest  of  many  psychophysiologists  interested  in  the 
neural  correlates  of  cognitive  processes  (e.g.,  Donchln  and  Lindsley, 


1969;  Kornhuber  and  Deecke,  1980).  Picton  and  Stuss  (1980)  have 
thoroughly  summarized  the  component  structure  of  the  known  ERPs ,  their 
sensitivities  to  various  types  of  experimental  manipulations,  and  their 
presumed  relationships  to  psychological  processes.  The  component 
structure  of  ERPs  varies  as  a  function  of  stimulus  modality,  recording 
location,  task  parameters,  and  subject  state  variables,  among  many  other 
factors.  In  a  situation  requiring  the  detection  of  a  rare  event,  a 
prominent  positive  wave  (P300)  occurs,  with  latency  of  about  300  msec. 
This  may  represent  the  response  to  disconfirmation  of  expectancy  and  is 
influenced  by  other  subjective  factors  such  as  decision  confidence 
(Hlllyard  et  al.,  1978). 

In  the  cued  reaction-time  (RT)  task,  one  stimulus  acts  as  a  warning 
that  a  second  stimulus,  which  has  significance  for  the  subject,  will 
subsequently  appear.  During  the  few  seconds  of  the  interstimulus 
Interval,  there  appears  a  slow  negative  potential  shift,  called  the 
contingent  negative  variation  (CNV).  This  event  is  probably  a 
nonspecific  sign  of  localized  cortical  activation  (Rebert,  1980c).  A 
slow  potential  shift,  the  Bereltschaftspotential  (BP),  which  is  morpho¬ 
logically  similar  to  the  late  portion  of  the  CNV,  occurs  when  a  S_ 
prepares,  in  the  absence  of  any  preparatory  or  imperative  cues,  to  carry 
out  a  behavioral  act. 

3.  Basic  Research  in  Animals 

Although  studies  of  human  electrocortical  activities  demonstrate 
the  validity  of  the  "biocybernetic"  concept  (Donchin,  1980;  Rebert, 
1980a),  a  complete  knowledge  of  ERPs  using  just  those  procedures  is 
precluded  by  a  number  of  limitations  in  human  scalp-recording  methods. 
For  example,  scalp  recordings  provide  an  extremely  limited  view  of  brain 
activity  (l.e.,  scalp  potentials  are  not  precise  reflections  of  the 
underlying  cerebral  activity  because  of  distortions  produced  by 
intervening  tissues);  many  cortical  events  are  not  apparent  in  scalp 
recordings;  and  ERP  components  recorded  from  the  scalp  are  unlikely  to 
be  due  to  discrete  generators,  but  probably  reflect  overlapping  sources 
of  potentials. 


The  foregoing  considerations  point  clearly  to  the  need  for  studies 
of  BRPs  in  animals.  The  advantages  of  using  animal  subjects  lie,  of 
course,  in  the  wide  variety  of  procedures  and  experimental  manipulations 
that  can  be  carried  out — e.g.,  intracerebral  recording  and  stimulating 
(either  electrically  or  pharmacologically),  disruption  of  known  neural 
pathways,  histological  evaluations,  long-term  study  of  a  subject, 
systemic  Injection  of  a  variety  of  pharmacological  agents,  direct 
manipulation  of  biological  drive  states  by  deprivation,  and  rigorous 
control  over  the  experimental  experiences  of  the  subjects. 

4.  Choice  of  Experimental  Paradigm 

A  host  of  experimental  paradigms  can  be  employed  with  animals  to 
study  BRPs.  The  one  selected  should  cognitively  engage  the  animal  and 
closely  approximate  paradigms  used  in  human  research.  Most  preferred  is 
a  paradigm  that  is  sufficiently  general  to  include  a  variety  of  psycho¬ 
logical  processes  and  ERP  components,  is  rigorous  in  terms  of  good 
control  over  the  behavioral  sequences  and  psychological  sets  Induced  in 
the  animal,  and  is  flexible  in  terms  of  the  ability  to  manipulate  a 
variety  of  experimental  variables  while  not  altering  the  basic  logical 
structure  of  the  task.  In  addition,  because  homology  between  animal  and 
human  ERPs  is  important,  advantages  should  accrue  from  the  use  of  a 
behavioral  paradigm  for  which  there  already  exist  data  indicating  a 
close  homology  of  ERPs  elicited  by  the  situation  (Rebert,  1972). 

The  cued  RT  task  meets  the  foregoing  criteria  and  was  considered  to 
be  the  most  promising  one  to  use  in  early  studies  of  the  electrogenesis 
of  ERPs  in  animals. 

Another  major  paradigm  of  Interest  in  this  research  was  the 
"oddball"  task  wherein  rare  and  common  events  elicit  different  ERPs,  the 
former  evoking  the  P300  component,  which  appears  to  follow  disconfirma- 
tion  of  expectancy  and  which  might  be  involved  in  mnemonic  processes 
(Donchin,  1979).  To  facilitate  study  of  this  process,  funds  were  made 
available  to  Dr.  Karl  Pribram  at  Stanford  University  to  begin  experi¬ 
ments  using  visual  stimuli  to  which  monkeys  make  behavioral  responses. 
The  paradigms,  equipment,  and  preliminary  behavioral  training  at 


Stanford  are  described  later  in  this  report.  In  addition,  a  passive 
P300  paradigm  (not  requiring  behavioral  responses  from  the  monkeys) 
using  tone  stimuli  has  been  implemented  at  SRI. 


5.  General  Purposes 

The  broad  goal  of  the  proposed  research  is  to  describe  the  dynamics 
of  the  general  cerebral  system  that  is  operative  in  the  cued  RT  task, 
using  as  a  primary  tool  the  recording  of  GRPs  and  associated  neuronal 
activity  in  various  regions  of  the  monkey's  brain.  Thus,  the  intra¬ 
cerebral  distribution  of  GRPs,  their  behavioral  significance  and 
similarity  to  human  GRPs,  their  relationship  to  neuronal  activity,  and 
mediation  by  chemical  transmitter/modulator  substances  are  to  be 
studied.  Later  stages  of  the  research  will  be  directed  toward  discov¬ 
ering  some  of  the  anatomical/neurochemical  pathways  by  which  GRPs  become 
modulated  during  the  cued  RT  task. 

This  research  will  provide  information  that  is  necessary  to  a 
fuller  understanding  of  GRPs,  and  thus  will  contribute  to  a  more 
substantial  understanding  of  brain  processes  involved  in  a  variety  of 
cognitive  acts.  Such  an  understanding  should  contribute  to  a  more  solid 
foundation  for  using  GRPs  in  a  blocybernetic  system. 

B.  Preparation  of  Facilities  and  equipment 

1.  General  Stages  of  Preparation 

The  SRI  laboratory  facility  used  for  this  research  was  developed  in 
two  stages.  First,  equipment  previously  used  for  similar  purposes, 
including  an  Iconix  Logic  unit  and  Linc-8  computers,  was  configured  so 
that  preliminary  training  of  six  monkeys  could  be  undertaken  early  in 
the  project  period.  Subsequently,  a  DGC  LSI-11/23  computer  system, 
purchased  by  SRI  for  use  on  this  project,  was  Installed,  and  software 
and  hardware  elements  were  configured  to  provide  more  automatic  and 
comprehensive  experimental  control,  data  acquisition,  and  analysis  than 
that  provided  by  the  older  equipment. 
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Iconix  Logic  Unit  for  Preliminary  Training 

A  schematic  representation  of  the  logic  of  the  cued  RT  task  is 
shown  in  Figure  1.  A  trial  can  be  initiated  if  the  animal  has  main¬ 
tained  a  specified  hand  posture  (holding  on  to  a  round  knob  attached  to 
the  primate  chair)  for  at  least  5  sec.  After  a  period  of  training,  the 
position  is  usually  maintained  throughout  the  intertrial  interval 
(1TI).  This  contingency  assures  a  greater  homogeneity  of  RT  because  the 
instrumental  response  is  always  made  from  the  same  starting  position. 
Tone  bursts  (1  or  3  kHz),  100-msec  and  72  dB  (re:  20  yN/m2),  constitute 
warning  or  discriminative  stimuli  (WS  and  DS,  respectively).  The  WS  is 
followed  by  an  imperative  stimulis  (IS),  a  light,  which  indicates  to  the 
monkey  that  it  can  obtain  reinforcement  by  making  the  appropriate 
operant  response  (a  bar  press  in  this  case).  The  interstimulus  interval 
is  typically  1.5  sec,  but  can  be  manipulated  for  experimental  reasons. 

If  the  monkey  releases  the  ’‘hold*’  position  any  time  before  onset  of  the 
IS,  the  trial  is  aborted  and  no  reward  is  available.  Correct  perfor¬ 
mance  allows  the  monkey  to  receive  1  ml  of  an  orange-flavored  drink 
(Tang*)  for  each  bar-press  made  during  the  12  sec  that  the  IS  remains  on 
(usually  a  total  of  15-20  ml). 

The  DS  occurs  in  isolation — l.e.,  it  is  not  paired  with  any  other 
cue — and  provides  a  comparison  for  assessing  ERP  components  related  to 
the  associative  responses  elicited  by  the  WS.  Typically,  CNVs  are 
evoked  by  both  the  WS  and  DS  early  in  the  training  period,  but  later 
only  by  the  WS.  Thus,  this  paradigm  permits  assessment  of  the  develop¬ 
ment  of  associative  and  discriminative  events  in  several  regions  of  the 
brain  (Rebert,  1977). 

The  many  contingencies  in  this  paradigm  required  an  elaborate  and 
fairly  time-consuming  programming  of  the  Iconix  unit.  For  example, 
trials  are  not  initiated  unless  the  animal  has  sustained  a  fixed 
position  of  the  right  hand  for  at  least  5  sec,  the  availability  of 
reinforcement  is  contingent  on  the  presence  of  the  IS,  trials  are 


FIGURE  1  LOGIC  OF  THE  CUED  REACTION  TIME  TASK 

aborted  If  a  premature  response  occurs,  and  the  IS  terminates  if  a 
response  is  not  made  quickly  enough.  The  logical  configuration  of  this 
system  is  presented  in  Appendix  A. 

Associated  with  the  Iconix  unit  were  three  counters  that  measured 
reaction  time  and  counted  the  total  number  o!  bar  presses  and  reinforce¬ 
ments.  Liquid  was  delivered  through  a  solenoid,  which  gated  a  gravity 


or  pressurized  flow  system  so  that  1  ml  of  juice  was  delivered  with  each 
bar  press. 

Several  limitations  of  this  preliminary  system  mandated  an 
upgrading  of  the  facility.  These  limitations  included  the  following: 

•  A  hard-wired  system  is  Inherently  Inflexible;  therefore,  new 
wiring  configurations  have  to  be  done  to  implement  even  trivial 
experimental  changes. 


•  The  logical  control  system  was  only  indirectly  tied  to  the 
electrophysiologic  data-acquisltion  system;  so  automatic  tagging 
o£  data,  automatic  sorting,  and  selective  averaging  could  not  be 
accomplished. 

•  Behavioral  data  had  to  be  tabulated  manually. 

•  Tone  frequencies  had  to  be  changed  manually,  requiring  a  manual 
system  for  keeping  track  of  US  and  DS  trials. 

•  Summary  statistics  of  behavioral  data  could  not  be  obtained 
immediately  after  a  test  session. 

o  The  gravity  and  pressure  flow  systems  were  cumbersome  and  messy. 

t  Obsolete  Linc-8  computers  were  inadequate  for  modern 
requirements  of  data  analysis. 

Consequently,  SRI  purchased  the  LSI-11/23  computer  system  described 
below  for  use  on  this  project. 

3.  LSI-11/23  Computer  and  Related  Components 

a.  Hardware  Configuration 

The  configuration  of  this  system  is  schematized  in  Figure  2.  It 
consists  of  an  LSI-11/23  processor  with  extended  memory  (256  KB),  clock 
board,  analog-to-digltal  converter  and  associated  direct  memory  access 
board,  a  digital-to-analog  converter,  contact  closure  detector,  latched 
open-collector  board  for  operating  external  devices,  a  30-MB  Winchester 
disk  with  associated  1-MB  floppy,  a  9-track  digital  tape  recorder,  and 
VT640  graphics  terminal.  Associated  devices  Include  solid-state  tone 
generators  under  computer  control,  a  circuit  interface  between  the 
computer  and  liquid  delivery  system  (a  Valcor  5P94R-7  metering  pump),  a 
gain  and  DC-offset  control  panel,  indicator  panel,  H-P  model  7034A  X-Y 
plotter,  and  TTY  Hodel  43  printer. 


The  Uinchester  disk  is  used  to  store  programs  and,  temporarily, 
single-trial  data  during  testing.  At  the  end  of  the  test  session,  the 
single-trial  data  are  transferred  to  digital  tape.  The  floppy  discs  are 
used  to  store  waveform  averages  and  summary  statistics  of  behavioral 
data  for  the  session.  The  summary  statistics  are  printed  on  the  TTY-43 
printer  at  the  end  of  the  session,  and  waveform  averages  are  plotted  on 
the  HP  plotter.  Listings  for  the  programs  developed  for  this  system  are 
provided  in  Appendix  B. 
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Software  Development 

CNV  paradigm.  A  program  was  written  to  Implement  the  logical 
paradigm  shown  In  Figure  1.  The  program  was  designed  to  provide  all 
record-keeping  and  summary  statistics  of  behavioral  data  and  to  execute 
the  paradigm  while  obtaining  the  ERP  data.  Thus,  the  parameters  of 
stimulation  and  recording,  sampling  rates,  artifact-reject  criteria, 
experimenter  remarks,  ratios  of  WS  and  DS  trials,  date,  experimental 
conditions,  and  so  on  are  stored  with  each  set  of  waveforms  so  that 
manual  notations  and  paper  records  are  minimal. 

Program  "CNV"  implements  a  cued  RT  paradigm  by  controlling  the 
sequence  of  stimulus  events,  acquiring  data  from  each  of  up  to  8 
electrode  input  channels,  monitoring  responses  by  the  subject  (S)  and 
input  from  the  experimenter  (E),  and  labeling  and  storing  all  results  on 
Winchester  and  floppy  disks. 

E_ begins  each  session  by  calling  up  "CNV"  and  responding  to  its 
queries  regarding: 

•  Name  of  the  subject 

•  Date 

•  Experimental  condition  and  day  within  the  condition 

•  Channels  that  are  to  be  sampled. 

Also,  E_ has  a  chance  to  modify  the  values  of  various  trial 
parameters: 

•  Probability  that  each  trial  will  have  a  WS  rather  than  a  DS  tone 

•  Longest  RT  following  light  (IS)  onset  that  will  still  be 
rewarded 

•  Smallest  voltage  that  will  be  considered  an  "artifact” 

•  Channel  to  be  automatically  displayed  at  the  end  of  each  trial 

•  Amplitude  of  the  calibration  pulse  for  each  channel 

•  Interval  between  tone  onset  and  light  onset 

•  Duration  of  the  IS  light 

•  Speed  mode — l.e.,  whether  optional  ITI  activities  are  conducted. 


Each  trial  is  begun  by  E^'s  pressing  a  button  when  the  computer,  E_, 
and  S_ are  all  ready.  Seated  at  the  computer  terminal,  E_ can  watch  S_ on 
closed-circuit  TV,  supervise  the  flow  of  the  computer  program,  and 
access  the  polygraph  or  other  equipment,  as  needed.  Trial-by-trial 
results  are  reported  on  the  terminal  screen,  including  the  number  of  bar 
presses  by  S>,  reaction  time,  duration  of  1T1,  and  number  of  IT1 
responses. 

The  program  logic  considers  each  trial  to  consist  of  seven 
consecutive  "phases,”  demarcated  by  experimental  events:  onset  and 
offset  of  a  tone,  onset  of  the  IS  light,  termination  of  sampling,  etc. 

To  time  both  the  sampling  (one  set  of  A-D  conversions  every  10  msec;  400 
consecutive  sets  per  trial)  and  the  stimulus  events,  a  clock  is  set  to 
overflow  once  per  millisecond.  Every  10th  overflow,  sampling  is 
executed  and  the  obtained  values  are  stored  in  a  buffer.  Between 
samples,  a  contact  closure  register  is  polled  to  see  if  any  bar  presses 
have  occurred.  If  presses  the  response  bar  while  the  IS  is  on,  then 
the  metering  pump  is  operated  to  provide  a  juice  reward  to  S.  Bar 
presses  at  earlier  times  during  a  trial  are  tabulated  according  to  the 
trial  phase  in  which  they  occur;  also,  they  cancel  the  IS  and  the 
opportunity  to  earn  juice.  If  there  is  a  contact  closure — on  a  separate 
circuit — due  to  E_  rather  than  ^  an  ongoing  trial  is  aborted. 

After  checking  for  contact  closures,  "CNV”  evaluates  whether  it  is 
time  to  begin  the  next  phase  of  the  trial,  as  follows: 


Phase 

Time  (msec) 

Event 

l 

0 

Begin  sampling 

2 

400 

Begin  trigger  for  CAL  pulse 

3 

450 

End  trigger  for  CAL  pulse 

4 

1000 

Turn  on  tone 

5 

1100 

Turn  off  tone 

6 

2500 

Turn  on  IS  (if  WS  trial) 

7 

4000 

Stop  sampling 

On  WS  trials,  unless  has  bar-pressed  prematurely,  the  IS  appears 
during  Phase  6  and  the  reaction  time  to  bar  press  is  recorded.  (On  OS 


trials,  although  no  IS  is  presented,  responses  are  nevertheless  recorded 
for  all  seven  phases  of  the  trial.)  If  a  bar  press  happens  within  a 
3000-msec,  "limited-hold"  interval  after  IS  onset,  the  IS  remains  on  for 
a  total  of  12  sec  and  each  subsequent  bar  press  is  rewarded.  If  no  bar 
press  is  made  in  time,  the  IS  ends  and  the  ITI  begins.  At  the  end  of 
each  trial,  E_  has  a  chance  to  insert  a  comment  that  will  be  stored  with 
the  data  of  the  previous  trial. 

To  detect  bar  presses  during  the  ITI,  the  contact-closure  register 
is  set  so  that  all  bar  presses  are  noted  (Including  when  they  occur), 
meanwhile  enabling  the  system  to  perform  other  tasks.  Data  from  the 
foregoing  trial  are  screened  for  artifacts,  and  their  maxima,  minima, 
and  DC  levels  are  computed.  All  this  information,  along  with  _E's 
comments,  settings  of  all  parameters,  and  the  waveform  data,  is 
written — as  a  single  record — into  the  session's  file  on  disk. 

Next,  the  waveform  data  are  added  into  an  averaging  buffer;  sepa¬ 
rate  buffers  are  used  for  data  from  WS  vs.  DS  trials.  However,  if  there 
were  too  many  artifacts  or  if  the  trial  was  aborted  (due  to  premature 
bar  press,  too  slow  RT,  or  _E's  intervention),  then  the  data  are  not 
added  to  these  buffers. 

Unless  has  opted  for  "high-speed"  mode  (short  ITIs),  waveform 
data  from  one  of  the  channels  is  displayed  on  the  graphics  terminal. 
can  opt  to  review  single-trial  data  from  any  channel  or  cumulative 
averages  for  WS  or  DS  on  any  channel.  When  E_ is  finished  displaying 
data,  he  then  selects  the  next  task,  from  a  menu: 

Hit  RETURN  for  next  trial,  or  select  item  from  menu: 

?? - Explain  menu 

QT — -Quit  session;  delete  data 

EX - Exit  session;  save  data 

DS - Display  single-trial  data 

DA - Display  average  data 

CP - Change  parameters 

PL - Plot  waveform 
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Unless  the  session  Is  over,  ordinarily  waits  out  a  variable  ITI 
and  then  proceeds  to  the  next  trial.  Occasionally,  to  review/modify  the 
trial  parameters,  E_  selects  “CP”  and  then,  interactively,  changes  any  or 
all  (or  none)  of  them.  If  a  hard-copy  of  a  waveform  is  needed,  "PL” 
initiates  that  interactive  sequence. 

When  the  sample  sizes  for  WS  and  DS  trials  are  adequate  (e.g.,  n  > 
15),  E_ selects  “EX”  from  the  menu.  This  causes  the  session's  single¬ 
trial  data  and  information  to  be  saved  as  a  file  on  the  Winchester 
disk.  Later,  E_ will  transfer  this  file  to  magtape.  Next,  a  summary  is 
prepared  of  the  statistics  and  parameters  for  the  session,  including: 

•  Total  number  of  trials 

•  Sample  sizes  for  WS  and  DS  trials 

•  Number  of  trials  aborted  for  each  possible  reason 

•  Mean  RT 

•  RT  standard  deviation 

•  Mean  number  of  reinforcements 

•  Total  number  of  bar  presses 

•  Number  of  bar  presses  during  ITIs 

•  Number  of  artifact-rejected  trials 

•  Mean  number  of  artifact-rejected  trials 

•  Mean  number  of  deviant  data  per  artifact-rejected  waveform 
per  channel 

The  WS  and  DS  averages,  along  with  the  session's  parameters  and 
statistics,  are  stored  as  a  file  on  floppy  disk.  Finally,  a  session 
summary  and  a  listing  of  E^s  comments  are  output  on  a  line  printer. 

P300  paradigm.  A  program  was  written  to  carry  out  preliminary 
studies  of  the  P300  evoked  by  tones  of  different  frequencies  in  a 
"passive”  paradigm—i.e. ,  no  responses  are  required  of  the  monkeys. 
However,  when  the  program  wes  used  with  human  JSs,  the  Ss  were  asked  to 
count  the  rare  tones  because  we  were  primarily  interested  in  verifying 
the  adequacy  of  the  program. 

Program  "P300"  implements  a  P300  paradigm  in  which  100-msec  tone 
pips  are  presented  at  a  fixed  rate  (e.g.,  once  per  second).  Differently 
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pitched  tones  are  included  in  each  aeries;  "common"  tones  occur  more 
often  than  **rareM  tones*  No  overt  response  by  S_  is  required. 

Four  channels  of  the  A-D  converter  are  used  to  sample  potentials 
from  various  electrode  sites.  Each  “trial"  consists  of  an  epoch  of  1000 
asec  during  which  400  samples  per  channel  (4  channels)  are  acquired,  one 
set  of  samples  every  2.5  msec. 

To  begin  a  P300  session,  E.  calls  up  “P300,"  enters  the  name  of 
and  inputs  a  name  for  the  file  to  which  data  will  be  written.  Then,  E^ 
has  a  chance  to  interactively  modify  any  of  the  following  parameters: 

•  Percentage  of  common  tones 

•  Minimum  value  that  will  be  considered  an  “artifact" 

•  Amplitude  of  each  channel's  calibration  pulse 

•  Duration  of  recording  epoch 

•  Interepoch  interval 

•  Speed  node — i.e.,  whether  optional  activities  occur  between 
epochs 

•  Number  of  the  upcoming  tone  series. 

At  the  beginning  of  each  tone  series,  decides  whether  the  more 
highly  pitched  of  two  tones  will  be  common  or  rare.  E_ then  specifies 
how  many  trials  are  desired.  The  sample  size  for  the  rare  tone  is 
computed  so  that  it  can  be  used  as  a  criterion  for  completing  a  tone 
series.  Subsequently,  if  the  waveforms  for  some  rare  tone  epochs  are 
artifact-rejected,  the  series  will  be  continued  until  the  sample  size 
for  the  rare  tone  is  adequate.  When  Ej  Sj  and  the  computer  are  all 
ready,  E^  begins  the  tone  series  by  pressing  a  button. 

On  each  trial,  as  sampling  is  begun,  a  relay  is  used  to  trigger  a 

delayed  calibration  pulse.  About  200  msec  later,  one  of  two  relays  is 

operated— to  deliver  a  common  or  rare  tone,  depending  on  the  output  of  a 

random  number  generator  and  on  the  percent  of  common  tones  previously 
requested  by  E.  Sampling  continues  for  about  625  msec  after  the  offset 


Between  samples  (every  2.5  msec),  the  values  produced  by  each  set 
of  A-D  conversions  are  stored  in  a  buffer.  Then  the  time  is  checked  to 
see  if  the  next  event  in  the  trial  is  due.  After  the  400th  set  of 
samples  is  in,  all  the  data  are  reviewed  for  artifacts  while  their 
maxima,  minima,  and  DC  levels  are  being  computed.  Unless  too  many 
artifacts  occurred,  the  data  are  added  to  another  buffer,  for  averaging; 
separate  buffers  are  used  for  the  common  and  rare  tone  data.  If  more 
rare  tone  samples  are  needed,  the  next  trial  begins  as  soon  as  the 
interepoch  interval  has  elapsed.  Between  trials,  E_  is  informed  of  the 
tone  type  for  the  next  trial,  the  current  sample  sizes,  and  the  DC 
levels . 

Following  the  completion  of  each  tone  series,  E_  has  a  variety  of 
options:  to  add  more  trials  and  extend  the  tone  series;  to  write  the 
data— along  with  parameter  information— as  a  record  in  the  session's 
file;  to  begin  the  next  tone  series;  to  list  the  current  parameter 
values;  to  display  either  the  common  or  rare  tone  averages  (or  the  most 
recent  single-trial  data)  for  any  of  the  four  channels;  to  plot  any  of 
these  waveforms  on  an  X-Y  recorder;  to  get  a  status  report  on  the  just- 
completed  tone  series;  or  to  end  the  session. 

As  each  set  of  data  is  written  to  disk,  a  summary  of  the  experi¬ 
mental  conditions  is  printed  out.  It  includes  items  such  as: 

•  Date  and  name  of  subject 

•  Number  of  preceding  tone  series 

•  Name  of  data  file  on  floppy  disk 

•  Amplitudes  of  calibration  pulses  on  each  channel 

•  Common  vs.  rare  tone  sample  sizes 

•  Total  number  of  trials 

•  Numbers  of  common  vs.  rare  tones  presented 

•  Smallest  voltage  value  to  be  deemed  an  ’’artifact'’ 

•  Number  of  samples  artifact-rejected 

•  Time  between  samples 

•  Time  between  epochs. 


Data  retrieval  program.  Data  analysis  software  is  being  developed 
that  will  enable  us  to  reopen  any  data  file  written  during  a  CNV,  P300, 
or  other  class  of  experiment ,  recall  what  conditions  were  employed, 
review  the  data  obtained,  and  sort  or  analyse  the  waveforms  as  needed. 
Currently,  we  are  able  to  display  waveforms  off-line  on  our  graphics 
terminal  and  ‘’score"  the  voltage  values  at  any  point  along  the  wave¬ 
form.  With  a  graphics  printer  slaved  to  the  terminal,  we  will  soon  be 
able  to  obtain  report-quality  hard  copies  of  anything  (text,  graphs,  bar 
charts,  or  waveforms)  that  can  be  displayed  on  the  terminal.  In  the 
meantime,  we  are  operating  an  analog  X-Y  plotter  with  our  D-A  converter 
to  plot  waveforms  recorded  during  pilot  experiments.  A  line  printer  is 
used  to  print  out  textual  information. 

C.  Verification  of  System  Performance 

Electrodes  somewhat  different  from  those  used  previously  for 
recording  subcortical  slow  potentials  (SPs)  from  monkeys  are  now  being 
employed  (see  Section  E,  Surgical  Preparations;  briefly,  the  pipettes 
-are  sharpened  so  that  multiple  units  as  well  as  SPs  could  be  obtained), 
and  the  low-frequency  filters  on  the  EEG  amplifiers  (Grass  Model  7P511) 
were  modified  to  0.01  Hz  to  allow  measurement  of  SPs.  Therefore, 
recordings  were  made  from  the  lateral  geniculate  of  one  acutely  prepared 
cat  to  check  these  items.  Because  of  the  fairly  high  electrode  imped¬ 
ance,  a  major  purpose  of  the  check  was  to  ensure  that  recordings  without 
excessive  noise  could  be  obtained. 

The  cat  was  anesthetized  with  sodium  pentobarbital  (42  mg/kg,  l.p.) 
and  placed  in  a  stereotaxic  Instrument.  An  incision  was  made  in  the 
scalp,  and  fascia  was  cleared  from  the  skull.  A  small  hole  was  drilled 
in  the  skull  at  coordinates  appropriate  for  approaching  the  lateral 
geniculate  nucleus  (LGN),  and  a  saline-filled  pipette  with  a  100- y  tip 
was  lowered  into  the  LGN  while  flashes  from  a  Grass  PS-2  photostimulator 
ware  being  presented. 

We  could  not  conveniently  average  the  ERPs  at  this  time,  but 
multiple-unit  activity  comparable  to  that  observed  in  earlier  studies 
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(Rebert,  1973)  was  obtained  and  alow  potential  ERPs  could  be  observed 
sufficiently  frequently  in  the  raw  records  to  confirm  the  adequacy  of 
the  amplifier  low-frequency  modification.  Thus,  both  slow  and  massed- 

» 

unit  responses  were  obtained  through  the  same  electrode  and  amplifier 
with  adequate  resolution,  except  that  the  60-cycle  filter  had  to  be  used 
for  ERP  recording. 

Several  human  Se  were  tested  in  both  the  CNV  and  P300  paradigms  to 
evaluate  the  computer  program  performance  as  well  as  the  amplifiers. 
Beckman  Ag-AgCl  discs  were  placed  on  the  mastolds  for  reference  and 
above  and  below  the  left  eye  for  recording  the  vertical  electrooculogram 
(EOG).  A  stretchable  cap  containing  a  conductive  gel-filled  tube 
attached  to  another  Ag-AgCl  disc  ms  used  to  obtain  vertex  records.  The 
forehead  ms  grounded  via  another  Ag-AgCl  disc.  The  warning  and  dis¬ 
criminative  tones,  the  imperative  stimulus  (light),  and  the  response 
manipulandum  to  be  used  with  the  monkeys  were  also  employed  to  test  the 
human  £s.  The  same  tones  were  used  in  the  P300  paradigm,  and  j>s  were 
instructed  to  count  the  rare  tone. 

Figure  3  shows  CNVs  from  two  Ss;  the  first  ms  tested  with  an 
interstimulus  interval  (XSI)  of  1500  msec,  and  the  second  with  an  ISI  of 
2500  msec.  Recording  ms  with  one  of  the  Grass  7P511  amplifiers 
modified  to  have  a  low-frequency  cutoff  of  0.01  Hz.  These  are  very 
typical  CNVs.  The  CNV  in  the  long  ISI  exhibits  some  decay  consistent 
with  the  amplifier  time-constant  shown  in  the  lower  part  of  the 
figure.  We  determined  that  this  time-constant  ms  consistent  across  the 
eight  channels  to  be  used  with  the  monkeys. 

Examples  from  one  S_  of  P300  responses  associated  with  several 
proportions  of  rare  tones  are  shown  in  Figure  4.  The  inset  shows  a 
typical  decline  in  N200-P300  amplitude  as  the  proportion  of  rare  tones 
increases. 


FIGURE  3  CNV  AND  SQUARE  WAVE  RECORDINGS  WITH  0.01  to  100  Hz 
BANDPASS 

A.  CNV  from  one  S  with  1500  ms  interstimulus  interval.  B.  CNV 
from  another  S  with  2500  ms  interstimulus  interval.  C.  Square 
wave  showing  time-constant  of  the  recording  system. 
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FIGURE  4  EXAMPLES  FROM  ONE  S  OF  VERTEX  POTENTIALS  EVOKED  BY 

RARE  TONES  IN  AN  "ODDBALL"  TASK,  AND  THE  PEAK-TO-PEAK 
P300  AMPLITUDE  AS  A  FUNCTION  OF  THE  PERCENTAGE  OCCUR¬ 
RENCE  OF  RARE  TONES 
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Preliminary  Activities  with  Monkeys 


1.  Quarantine,  Housing,  and  Care 

Six  adult  male  cynomolgus  monkeys  were  received  on  10  June  1982. 

In  accordance  with  legal  requirements,  the  monkeys  were  quarantined  for 
one  month.  During  this  time  they  were  weighed  periodically  and  tested 
for  communicable  diseases  and  general  health.  One  monkey  exhibited 
anemia,  lack  of  appetite  and  diarrhea  for  about  a  week.  Mean  individual 
weights  of  the  six  monkeys  during  quarantine  ranged  from  4.3  to  6.1 
kg.  The  Individual  weights  were  very  stable  during  this  time.  Housing 
was  in  standard  monkey  cages  with  automatic  watering.  Chow  was  given 
twice  per  day. 

2.  Preliminary  Training 

The  monkeys  were  released  from  quarantine  on  20  July  1982.  Chair 
training  for  three  monkeys  was  started  on  30  July.  Two  monkeys  could 
not  be  handled  because  of  their  aggressiveness  and  large  canines.  The 
canines  were  cut  on  6  August.  During  this  time  we  were  able  to  train 
only  four  monkeys  because  considerable  time  was  devoted  to  general 
handling,  taming,  and  inhibiting  the  fierce  aggressiveness  of  one  monkey 
(Samurai).  During  the  first  week  of  August,  juice,  raisins,  grapes,  and 
bananas  were  given  to  the  monkeys  while  they  were  chaired.  Reactions 
were  highly  mixed;  M22  (E.T.)  ate  or  drank  anything  proffered,  but  M2 4 
(Mickey)  would  partake  of  nothing.  Although  quite  aggressive  and  noisy 
while  being  handled,  all  the  monkeys  were  quiet  when  chaired,  exhibiting 
very  little  struggling  or  turning. 

3.  Operant  Conditioning 

During  training  sessions  a  monkey  was  placed  in  a  primate  chair 
with  some  special  features.  A  drinking  tube  was  mounted  so  that  it  was 
readily  accessible  to  the  monkey,  and  an  Inverted,  metal  U-bolt  covered 
with  tygon  tubing  arched  over  the  monkey's  snout  and  prevented  turning 
of  the  head.  A  Plexiglas  partition  to  the  left  of  midline  of  the  belly 
plate  kept  the  arms  separated  and  encouraged  the  pressing  of  the 
response  bar  with  the  right  hand.  The  bar— a  5-cm  wide  piece  of 


stainless  steel — protruded  5  cm  from  the  Plexiglas  plate  on  the  front  of 
the  chair,  27  cm  from  the  monkey's  stomach.  A  ball  mounted  on  the 
midline  of  the  belly  plate  12  cm  from  the  monkey's  stomach  provided  a 
place  for  the  monkey  to  put  its  right  hand  prior  to  a  trial  in  order  to 
stabilize  reaction  times.  A  light  box  (4.5  x  4.5  cm  square)  with  a 
white  plastic  front  was  mounted  on  the  chair  27  cm  away  from  the 
monkey's  brow  and  10  cm  above  eye  level.  Intensity  of  the  light,  which 
constituted  the  IS,  was  400  ft-lamberts.  Two  video  cameras  and  monitors 
were  used  to  obtain  (1)  a  wide-angle  view  of  the  monkey  and  (2)  a 
close-up  of  the  ball  so  that  trial  initiation  by  G  could  be  made  contin¬ 
gent  on  a  proper  placement  of  the  monkey's  hand. 

Training  proceeded  in  three  phases:  (1)  bar-pressing  for  reward, 
(2)  light-contingency,  and  (3)  pretrial  placement  of  the  hand.  During 
Phase  1  successive  approximations  of  the  bar-press  response  were  rein¬ 
forced  until  the  bar  was  consistently  pressed.  In  Phase  2  the  delivery 
of  reward  was  made  contingent  on  presence  of  the  IS.  This  involved 
extinguishing  responses  during  dark  periods  and  training  the  monkeys  to 
tolerate  widely  varying  interstimulus  Intervals  so  that  they  would  be 
responding  to  the  IS  rather  than  in  a  temporal  pattern.  Phase  3  was 
initiated  during  early  stages  of  Phase  2 — when  the  monkeys  Indicated 
some  awareness  of  the  meaning  of  the  light.  This  phase  involved  using 
the  IS  as  a  secondary  reinforcer  to  reward  placing  the  right  hand  on  the 
ball.  Later  in  this  phase,  RTs  were  recorded  and  a  limited-hold 
contingency  was  Included  so  that  slow  RTs  resulted  in  extinguishing  of 
the  IS  and  unavailability  of  reward.  This  procedure  is  Included  so 
that,  if  necessary,  the  RT  can  be  pushed  to  the  point  where  use  of  the 
warning  signal  (WS)  is  necessary  in  order  to  have  an  RT  sufficiently 
short  to  obtain  reward  (there  is  nothing  else  in  this  paradigm  that 
requires  Che  monkeys  to  pay  attention  to,  or  utilize,  the  WS,  although 
in  previous  work  they  did  so). 

Bar-press  training  was  initiated  with  G.T.  on  9  August  and  he 
almost  learned  the  response  on  that  day — he  did  learn  that  a  reaching 
movement  was  required,  and  the  next  day  he  began  to  bar-press.  By  16 
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August,  M23  (Conan)  had  also  learned  to  bar-press  and  the  two  others 
(Samurai  and  Smacker)  were  making  arm  movements  to  precipitate  a 
reward.  Large  Individual  differences  In  motivation  were  evident  at  this 
time.  E.T.  would  press  immediately  and  rapidly  upon  availability  of  the 
bar,  registering,  for  example,  849  responses  in  15  min.  However, 
neither  Samurai  nor  Smacker  was  very  motivated.  Conan  exhibited 
Intermediate  behavior,  pressing  about  450  times  in  15  min.  By  26 
August,  Samurai  and  Smacker  were  partially  on  the  bar,  pressing 
occasionally  but  they  subsequently  regressed  and  would  not  perform. 

These  monkeys  were  then  deprived  of  all  water  and  were  required  to 
satisfy  their  liquid  needs  in  the  experimental  environment.  Smacker 
responded  to  this  satisfactorily  and  began  to  bar-press  consistently  at 
200-300  responses  in  15  min.  Samurai,  however,  was  extremely  erratic 
and  developed  a  peculiar  pattern  of  not  responding  unless  an  E  was 
inside  the  chamber  with  him.  We  concluded  that  this  monkey  might  not  be 
satisfactory  in  the  long  run.  E.T.  was  started  on  light-contingency 
training  on  27  August  and  progressed  satisfactorily. 

Monkeys  24  and  25  (Mickey  and  Grey)  were  first  chaired  on  13 
September,  having  been  liquid-deprived  for  48  hr.  Although  Mickey  was 
very  calm  in  the  chair,  he  was  not  the  least  interested  in  drinking.  In 
contrast.  Grey  was  well  motivated  and  learned  to  move  his  arm  to  receive 
reinforcement.  He  again  exhibited  diarrhea  and  was  not  studied  until  28 
September,  when  he  learned  to  bar-press  moderately  well. 

We  discovered  that  the  monkeys  would  lick  and  pick  small  drops  of 
water  off  their  cages  whenever  the  cages  were  rinsed.  This  made  no 
difference  to  either  E.T.  or  Grey  but  was  sufficient  to  make  Mickey 
totally  uninterested  in  the  experimental  situation.  We  then  ensured 
that  the  cages  were  dried  before  the  monkeys  were  replaced. 

Training  continued  through  8  December,  progressing  through  the 
several  phases  until  all  the  monkeys  were  placing  the  hand  on  the  ball 
and  exhibiting  relatively  short  RTs.  They  were  then  tested  only  on 
Mondays  for  three  weeks,  with  liquid  deprivation  only  over  the  weekend, 
to  determine  whether  they  would  retain  their  performance  after  such 


layoffs,  which  would  occur  during  the  later  test  sessions  following 
electrode  implantation.  Performance  was  maintained.  On  the  last  day  of 
testing,  mean  RTs  over  trials  ranged,  among  the  monkeys,  from  a  low  of 
894  msec  (SD  ■  164)  to  a  high  of  1812  msec  (SD  *  950).  The  rate  of  bar¬ 
pressing  ranged  from  1.0/sec  (SD  ■  0.1)  to  1.7/sec  (SD  ■  0.2).  For  the 
five  monkeys  consistently  responding  (all  except  Samurai),  mean  RT  was 
1389  msec  (SD  *  342,  SEM  ■  153)  and  the  mean  rate  of  pressing  was 
1.4/sec  (SD  ■  0.3,  SEM  -  0.1). 

E.  Surgical  Preparations 

1.  Placements 

Preparations  for  surgery  were  initiated  during  the  last  week  of 
December  1982.  They  involved  calculation  of  electrode  placements  and 
construction  of  electrodes.  Because  no  stereotaxic  atlas  was  available 
for  the  size  of  cynomolgus  monkey  (Macaca  faaclcularis)  being  used, 
estimates  of  placements  were  determined  from  atlases  for  M.  fuscata  (7.4 
kg)  and  small  M.  fascicularls  (3.5  kg)  and  from  sections  of  M.  arctoides 
from  a  previous  study.  These  last  sections  were  critical  to  a  determi¬ 
nation  of  placement  depths  because  other  atlases  do  not  show  the 
cortical  surface,  and  the  dura  must  be  used  for  M.  fascicularls  because 
of  extreme  interanimal  variability  of  brain  placement  with  respect  to 
the  stereotaxic  landmarks — auditory  meatus  and  inferior  orbit  (Dubach 
and  Bowden,  unpublished  manuscript). 

Because  we  were  unable  to  study  the  number  of  monkeys  originally 
proposed,  the  strategy  for  studying  different  placements  was  altered. 

Ue  decided  to  put  electrodes  bilaterally  over  premotor  (arcuate  region), 
motor,  and  parietal  cortices,  in  the  CA1  region  of  the  hippocampus,  and 
in  the  caudate  nucleus,  substantia  nigra,  midbrain  reticular  formation, 
and  n.  ventralls  anterior  of  the  thalamus.  Two  references  were  used  in 
case  one  became  dysfunctional;  these  were  placed  in  anterior  and 
posterior  white  matter.  An  electrode  was  also  Implanted  in  the  superior 
bony  orbit  to  record  the  EOG. 
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Electrodes 


Electrodes  capable  of  simultaneously  recording  DC  potentials, 
transient  ERPs,  and  massed-unit  activities  were  constructed  of  glass 
pipettes  and  cells  housing  commercially  available  sintered  Ag-AgCl 
pellets.  These  were  like  the  electrodes  described  by  Rebert  and  Irwin 
(1973).  The  tips  were  sharpened  to  100  y  by  pulling  0.7-mm  O.D. 
pipettes  to  very  small  tips  and  then,  under  a  microscope,  chipping  away 
the  tip  to  the  100-y  size.  This  was  facilitated  by  first  etching  a  100- 
y  diameter  platinum  wire  to  a  gradual  taper  and  inserting  it  into  the 
pipette.  The  wire  provided  a  means  of  determining  when  the  tip  diameter 
was  the  right  size.  A  short  piece  of  shrink  tubing  was  applied  to  the 
upper  shank  of  the  pipette  to  prevent  its  slippage  in  the  stereotaxic 
electrode  carrier  during  surgery.  The  pipettes  were  then  filled  and 
sterilized  by  boiling  in  normal  saline. 

Electrode  cells,  which  are  placed  over  the  top  of  the  pipette 
during  surgery,  were  constructed  of  1-cm  lengths  of  4-mm  O.D.  glass 
tubing.  One  end  of  each  tube  was  fire-polished  to  an  inside  diameter  of 
1  mm  (just  large  enough  to  slip  over  the  pipette).  These  tubes  were 
half-filled  with  Agar-saline  followed  by  normal  saline  when  the  agar  had 
set.  A  Ag-AgCl  pellet  was  then  placed  in  the  tube,  resting  on  the  agar, 
and  the  upper  opening  was  closed  with  dental  acrylic.  These  cells  were 
stored  in  a  freezer  until  used. 

3.  Surgery 

Monkeys  were  deprived  of  food  the  night  before  surgery.  Ketamine 
hydrochloride,  a  fast-acting  nonbarbiturate  anesthetic,  was  administered 
intramuscularly  (l.m.)  at  a  dose  of  14  mg/kg,  which  was  sufficient  to 
heavily  tranquilize  the  monkey  for  preparatory  activities.  A  dose  of 
atropine  s\ilfate  (a  0.2-ml  solution  of  120  g/ml)  was  administered  i.m., 
the  head  and  calves  were  shaved  and  cleansed,  and  then  the  monkey  was 
placed  in  the  stereotactic  apparatus.  A  catheter  was  placed  in  the 
right  small-saphenous  vein,  through  which  sterile  saline  was  dripped  at 
a  rate  of  16  drops/min — sufficient  to  keep  the  catheter  clear  and 
provide  some  hydration  during  the  4-5  hr  of  surgery.  The 


electrocardiogram  (EKG),  and  the  electromylogram  (EMG)  of  the  right 
triceps,  were  recorded.  The  EMG  was  used  to  monitor  state  of  alertness, 
and  0.2  to  0.3  ml  of  sodium  pentobarbital  (65  mg/ml)  was  administered 
through  the  catheter  as  required.  Typically,  an  infusion  was  required 
each  half-hour.  Rectal  temperature  was  also  monitored;  it  was  very 
stable  during  surgery  and  ranged  from  32.5  to  34.5°C  in  the  six  monkeys. 

Muscle  and  fascia  were  cleared  from  the  skull  and  the  small  blood 
vessels  were  cauterized.  Then,  stereotaxic  coordinates  for  the 
anterior-posterior  and  lateral  planes  were  marked  on  the  skull.  Four  6- 
32  stainless-steel  bolts  were  threaded  into  burr  holes,  and  bone  primer 
and  a  layer  of  dental  acrylic  were  applied.  The  EOG  electrode  was 
inserted  into  a  burr-hole  in  the  frontal  bone,  then  the  remaining  holes 
were  drilled.  After  the  stereotaxic  reading  for  the  dura  was  obtained 
the  electrodes  were  lowered  into  the  brain.  The  electrode  cells  were 
then  attached  and  wired  to  a  14-pin  plug.  The  assembly  was  encased  in 
acrylic,  the  wounds  were  sutured,  and  0.5  ml  of  penicillin-^  in 
dihydrostreptomycin  sulfate  was  administered  i.m.  Furacin 
(nitrofurazone)  antibiotic  salve  was  applied  around  the  headplug. 

Antibiotic  was  given  for  2  to  5  days  postsurglcally.  Each  day,  the 
head  was  washed,  and  the  wound  was  infiltrated  with  Llquimast 
(oxy tetracycline  HC1). 


F.  Electrode  Tests  in  Monkeys 

Several  weeks  following  surgery,  the  electrodes  of  each  monkey  were 
tested  one  at  a  time  with  a  DC  amplifier  to  check  offset,  drift,  and 
noise.  The  monkey  was  restrained  in  the  chair  but  the  manipulandum  was 
not  present  and  no  stimuli  were  given  during  the  electrode  checks. 


DC  offsets  were  usually  less  than  10  mV  and  were  mixed  with  respect 
to  polarity.  Four  electrodes  in  E.T.  were  13.0,  13.2,  14.0,  and  14.8 
mV,  and  two  in  Smacker  were  21.3  and  11.3  mV.  Drift  was  generally 
negligible  in  terms  of  the  4-sec  sampling  epoch  for  the  CNV  program  and 
expected  amplitudes  of  slow  potentials  (drift  less  than  20  vV/ sec,  with 
expected  amplitudes  of  several  hundred  pV).  Drift  will  be  attenuated  by 
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the  capacity-coupling  to  be  used.  Occasionally,  drift  was  ouch  as  50 
yV/sec  at  the  beginning  of  the  test,  but  this  subsided  with  continued 
recording— a  common  characteristic  of  Ag-AgCl  electrodes.  Most  of  the 
subcortical  electrodes  picked  up  60-cycle  line  noise,  requiring  the  use 
of  the  60-cycle  filter  on  the  amplifiers.  In  two  monkeys  two  and  four 
of  the  subcortical  electrodes  were  very  noisy  and  possibly  open  for 
unknown  reasons  (perhaps  bubbles  in  the  pipette).  We  are  in  the  process 
of  constructing  cable  from  mlcrodot  wire  and  rearranging  the  laboratory 
cabling  to  improve  the  recording  environment  for  these  high  Impedance 
electrodes.  If  necessary,  preamplifiers  with  very-high-input  Impedance 
will  be  employed,  or  more  drastic  filtering  of  the  EGG  (e.g.,  with  a 
low-pass  setting  of  40  Hz)  will  be  used. 

After  the  preliminary  electrode  tests  had  been  completed,  the  WS 
and  DS  tones  were  presented  to  observe  tone-evoked  potentials.  Examples 
from  one  of  the  monkeys  are  shown  in  Figure  5.  For  these  examples  the 
EOG,  a  cortical  placement  (right  parietal),  subcortical  nucleus 
(midbrain  reticular  formation),  and  subcortical  white  matter  (anterior 
reference)  were  used.  The  cortical  placement  showed  a  response  very 
similar  to  that  recorded  in  the  EOG  channel,  and  there  were  similarities 
to  the  EOG  in  the  other  placements  as  well,  although  the  number, 
latencies,  and  polarities  of  components  were  different  than  would  be 
expected  if  they  were  just  EOG  artifacts.  These  transient  potentials 
are  obviously  recorded  from  Intracerebral  tracts  (anterior  reference)  as 
well  as  from  the  nuclei.  That  the  EPs  recorded  were  probably  not  EOG 
artifacts  is  suggested  by  Figure  6,  which  shows  the  raw  EEG  tracings 
from  these  placements  in  the  absence  of  tone  pips.  Whereas  the  EOG 
channel  exhibits  blinks  of  about  250  yV  and  eye  movements,  these  events 
are  not  clearly  present  in  the  EEG  records,  although  there  are  some 
later-occtirring  shifts  that  might  be  neural  events  time-locked  to  the 
blinks  (e.g.,  the  slow  shift  in  parietal  cortex).  The  slow  eye 
movements  have  little  or  no  effect  on  the  recordings.  To  more 
thoroughly  examine  the  effects  of  blinks  and  eye  movements  on  the  EEG 
records,  we  will  use  a  continuous  sampling  routine,  which  is  terminated 


ide  with  respect  to  the  reference  electrode  in  posterior  white  matter. 


on  detection  of  a  blink  so  that  averages  time-locked  to  the  blinks  can 
be  obtained. 


G.  P300  in  Monkeys  in  Response  to  Visual  Cues  (Stanford  University) 

1.  Background 

Of  the  several  transient  potentials  of  the  brain  associated  with 
the  perception  and  processing  of  environmental  events,  the  P300 
"component"  (a  complex  of  late  positive  waves)  is  the  most  clearly 
associated  with  cognitive  events.  This  “component"  seems  to  reflect 
only  the  general  informational  properties  of  stimuli  and  is  uninfluenced 
by  informationally  irrelevant  physical  characteristics  or  by  specific 
behavioral  response  requirements  (Pritchard,  1981).  These  characteris¬ 
tics  have  made  the  P300  complex  particularly  relevant  to  the  evaluation 
of  workload,  to  the  general  field  of  biocybernetics  (e.g.,  Donchin  et 
al.,  1982),  and  to  clinical  research  on  cognitive  disorders  (Hillyard 
and  Kutas,  1983).  Consequently,  an  interest  in  obtaining  a  more 
complete  understanding  of  the  intracerebral  sources  of  the  P300  complex 
has  developed  (Galambos  and  Hillyard,  1981).  However,  to  date  the 
results  of  research  provide  only  hints  about  the  electrogenesis  of  the 
P300.  For  example,  Halgren  et  al.  (1980)  recorded  P300-like  activity  in 
amygdala  and  hippocampal  gyrus.  Wood  et  al.  (1980)  noted  the  lack  of 
polarity  reversals  of  P300-like  events  in  depth  recordings  above  the 
hippocampus,  and  Okada  et  al.  (1983)  concluded  from  magnetic  field 
recordings  that  the  P300  is  generated  in  anterior  hippocampus.  On  the 
other  hand,  Johnson  (NIMH,  personal  communication)  has  recorded  the  P300 
complex  from  human  patients  with  hippocampal  lesions.  But  there  is 
little  concrete  evidence  localizing  the  sources  of  the  P300  phenomenon 
and,  clearly,  invasive  studies  in  animals  are  necessary  to  systemat¬ 
ically  study  this  point. 

2.  Facilities  and  Equipment 

A  behavioral  testing  system  used  extensively  in  a  variety  of  neuro- 
behavioral  studies  of  monkeys  at  Stanford  University  (Kimble  et  al., 
1965;  Bagshaw  et  al.,  1965;  Grandstaff  and  Pribram,  1971;  Pribram 


29 


et  al.,  1980)  is  being  employed  in  this  investigation.  The  system 
hardware  consists  of  PDP-11/34  and  Apple  computers  implementing  a 
"discrimination  apparatus  for  discrete  trial  analysis  -  sixth  version" 
(DADTA-V1 — Cutcomb  et  al.,  1981).  Nine  translucent  panels  in  front  of  a 
color  television  set,  controlled  by  the  Apple  II  microprocessor,  serve 
as  both  stimulus  display  and  response  panels.  The  PDP-11/34  controls 
the  Apple  II  and  records  panel  press  position,  reaction  time,  error 
scores,  and  electrical  brain  activity  during  task  performance.  During 
testing,  a  monkey  is  restrained  in  a  primate  chair  noused  in  a  modified 
refrigerator.  Correct  responses  result  in  the  delivery  of  liquid 
reinforcement . 


3.  Test  Paradigms 

Two  "oddball"  procedures — behaviorally  nondiscriminative  and 
discriminative — are  being  Implemented.  Although  stimulus  relevance  is 
an  important  parameter  in  P300  genesis,  the  attribution  of  significance 
to  a  stimulus  by  requiring  an  overt  response  leads  to  confounding  of 
motor  and  cognitive  processes.  Thus,  in  the  first  task  being  studied, 
no  differential  responses  to  rare  and  common  stimuli  are  being 
required.  After  the  monkey  presses  a  central  panel  to  initiate  a  trial, 
one  of  the  remaining  eight  panels  (randomly  selected)  lights  up  and  the 
monkey  must  press  the  lighted  panel.  The  response  panel  lights  red  a 
designated  percentage  of  the  time  and  lights  green  on  other  trials. 
Although  this  paradigm  involves  behavioral  responses,  it  is  equivalent 
to  passive  tasks  shown  by  others  to  produce  P300-like  events  in  monkeys 
(H.  J.  Neville;  S.  A.  Hillyard;  personal  communications)  in  that  the  two 
stimuli  provide  no  differential  instructions  to  the  animal  with  respect 
to  performance.  Nevertheless,  we  expect  the  color  novelty  to  elicit  a 
P300-llke  potential.  In  a  second  task  the  monkeys  will  respond  to  only 
one  color  and  the  proportion  of  trials  on  which  that  color  occurs  will 
be  varied.  We  expect  P300-like  potentials  to  occur  to  either  the  red  or 
green  stimulus  when  it  is  the  rare  event,  but  the  potential  should  be 
larger  in  response  to  the  behaviorally  relevant  stimulus  when  it  occurs 
only  occasionally  than  to  the  nonresponse  stimulus  when  it  is  rare 


(Hillyard  and  Kutas,  1983).  In  addition,  the  cortical  and  subcortical 
distributions  of  the  "P300"  complex  will  probably  vary  as  a  function  of 
those  manipulations. 

4.  Electrodes  and  Placements 

Electrodes  like  those  described  by  Barna  et  al.  (1981)  are  being 
constructed.  The  electrode  consists  of  30-gauge  stainless-steel  tubing, 
tapered  at  the  tip  and  housing  a  maximum  of  16  electrode  wires.  The 
desired  number  of  wires  are  tied  into  a  bundle  and  threaded  through  the 
tubing  and  fixed  in  place  with  epoxy.  When  this  has  partially  set,  the 
wires  are  stripped  from  the  bundle,  bent  at  right  angles  to  the  shaft, 
and  cut  flush  with  the  outer  surface  of  the  tubing.  The  surface  is  then 
smoothed  to  form  a  pointed  shaft.  This  array  provides  the  capability 
for  searching  out  dipoles  indicative  of  generator  sources  and  recording 
massed-unit  activity,  which  is  also  helpful  in  source  localization 
(Vaughan,  1981).  These  types  of  electrodes,  with  varying  numbers  of 
leads,  will  be  placed  in  the  three  major  nuclei  of  the  amygdala,  in  the 
caudate  nucleus,  and  in  the  anterior  hippocampus  and  dentate  gyrus. 

5.  Preliminary  Behavioral  Results 

Two  female  _M^  fasclcularis  monkeys  have  been  trained  on  initial 
parts  of  the  "passive”  P300  task  described  above.  Training  proceeded  in 
four  phases:  (1)  chair  taming,  (2)  trial  initiation,  (3)  sequential 
start  and  panel-pressing,  and  (4)  color  cue  contingency.  During  Phase  1 
the  monkeys  received  apples  and  Tang*  while  in  the  chair.  This  training 
occurred  on  most  weekdays  for  about  a  month.  Behavioral  training  in 
Phase  2  Involved  teaching  the  monkeys  to  press  the  central  panel  of  the 
3x3  matrix  when  a  small  white  circle  appeared.  This  stimulus-response 
sequence  ensures  that  the  monkey  is  attending  to  the  display  panel. 
During  Phtfse  3,  presses  on  panels  other  than  the  central  one,  following 
the  central  press,  were  rewarded.  This  training  also  involved  making 
only  a  subset  of  the  panels  relevant  to  prevent  position  habits. 

Finally,  in  Phase  4  the  animals  were  trained  to  make  the  second  press  on 
the  panel  behind  which  a  green  square  was  presented  and  response  laten¬ 
cies  were  required  to  be  less  than  3  sec.  Variation  of  latencies 
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between  the  center  press  and  lighting  of  the  second  panel  was  also 
introduced  to  reduce  any  tendencies  to  “time"  the  interval  and  produce 
unusually  low  reaction  times.  The  number  of  trials  per  session  was 
extended  beyond  100  as  the  monkeys  became  used  to  obtaining  most  of 
their  daily  liquid  in  the  testing  situation. 

As  of  the  end  of  April  1983,  both  monkeys  were  responding  near  the 
90%-correct  and  250  msec  response-latency  criteria  and  are  ready  for 
electrode  implants.  Presentation  of  the  two  different  colors  will  begin 
only  after  the  electrodes  have  been  implanted  so  that  the  Initial 
responses  to  the  novel  red  stimulus  can  be  assessed. 

H.  Problems  Encountered  and  Solutions 

The  surgical  preparation  and  study  of  electrophysiology  was  delayed 
for  two  reasons.  First,  we  were  concerned  that  the  electrode  headplug 
would  be  jeopardized  when  we  were  handling  monkeys  that  were  not  tamed — 
i.e.,  it  might  be  dislodged  if  the  monkey  escaped  or  struggled  while 
being  removed  from  the  cage.  This  was  a  distinct  possibility  with  at 
least  three  monkeys,  two  of  which  turned  somersaults  in  their  cages  when 
being  retrieved,  and  another  often  escaped.  Second,  we  felt  that  the 
electrodes  might  deteriorate  during  the  long  training  period  prior  to 
CNV  recordings. 

A  related  problem  was  the  extreme  aggressiveness  of  two  monkeys, 
precipitating  attempts  to  tame  all  the  monkeys  by  handling  them  a  lot, 
giving  them  fruit  while  they  were  being  handled,  etc.  The  handling 
problems  were  minimized  considerably  by  hanging  short  chains  from  the 
necks.  This  obviated  the  need  to  grasp  an  arm  and  helped  immensely  in 
removing  the  monkeys  from  their  cages  (most  either  walk  or  leap  out),  in 
preventing  their  biting  (by  grasping  the  chain  closely  under  the  chin) , 
and  in  putting  them  in  the  primate  chair.  Because  of  these  developments 
and  because  the  monkeys  were  quiet  once  they  were  in  the  chair, 
extensive  chair  training  and  other  taming  are  unnecessary.  Con¬ 
sequently,  with  subsequent  groups  formal  experimentation  can  be 
initiated  much  more  quickly. 
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Motivating  some  of  the  monkeys  also  proved  to  be  a  problem.  All 
except  two  had  to  be  on  a  schedule  that  required  obtaining  their  total 
daily  fluid  intake  in  the  testing  situation  (when  daily  training  was  in 
progress,  a  quart  of  water  provided  Friday  night  was  usually  fully 
consumed  by  Saturday  afternoon).  Subsequently,  we  were  able  to  test 
successfully  just  on  Monday,  with  ad-lib  watering  Tuesday  through  Friday 
afternoon.  Thus,  after  training,  performance  appeared  to  be  somewhat 
less  dependent  on  the  state  of  deprivation. 

During  training  two  problems  occurred.  First,  although  the  monkeys 
very  rapidly  learned  to  make  some  operant  response  with  the  right  hand 
(in  one  training  session  if  motivated),  shaping  to  press  the  small  bar 
used  was  too  lengthy  a  process.  A  different  manipulandum  will  be  used 
with  subsequent  groups. 

Shaping  to  maintain  a  hold  on  the  ball  was  also  difficult.  One 
oddity  is  that  the  monkeys  attributed  to  the  ball  characteristics  of  the 
bar.  That  is,  they  would  move  back  from  the  bar  to  the  ball,  or  pat  the 
ball  in  an  attempt  to  get  reward  rather  than  press  the  bar.  This  confu¬ 
sion  is  understandable  because  the  IS  did  have  characteristics  of  a 
reinforcer  (secondary).  Using  a  manipulandum  that  has  to  be  held  during 
the  ITI,  rather  than  having  separate  devices  to  hold  and  press,  should 
alleviate  this  problem  and  should  also  facilitate  operant  training. 

Some  difficulty  was  encountered  in  using  commercially  obtained 
software  to  operate  the  analog-to-digital  converter.  The  software  had 
to  be  modified  at  the  level  of  assembly  language  to  allow  sequential 
sampling  across  channels  in  response  to  a  single  clock  overflow  flag.  A 
hardware  problem  was  encountered  in  the  digltal-to-analog  converter  when 
we  attempted  to  plot  waveforms.  An  SRI  engineer  traced  the  problem  to  a 
faulty  voltage  regulator,  which  was  repaired. 

The  lack  of  an  appropriate  stereotaxic  atlas  required  a  more 
extensive  effort  to  determine  electrode  coordinates  than  would 
ordinarily  be  required,  and  the  placements  may  not  be  where  they  were 
aimed.  A  related  problem  is  that  the  cynomolgus'  vertical  brain 
placement  in  the  cranium  varies  greatly  from  one  monkey  to  the  next. 


requiring  the  placement  of  depth  electrodes  with  respect  to  the  dura 
Significant  variability  in  the  anterior-posterior  plane  cannot  be 
compensated  without  technically  demanding  X-ray  techniques. 


Impedances  were  above  100  kfl  in  subcortical  electrodes  in  several 
monkeys  and  in  similar  electrodes  placed  in  normal  saline.  However, 
some  of  the  placements  appear  to  be  open  and  unusable,  not  just  of  high 
impedance.  We  plan  to  explore  the  use  of  a  preamplifier  with  a  very- 
high-input  impedance  to  examine  this  problem  further.  During  one  phase 
of  electrode  placement,  the  pipette  must  be  cut  about  1  cm  above  the 
skull.  This  is  done  with  a  cutting  wheel,  and  the  vibration  often 
causes  saline  to  be  extruded  from  the  pipette,  leaving  bubbles.  The 
bubbles  are  usually  successfully  removed  by  inserting  a  small  wire  into 
the  pipette  and  adding  saline.  However,  some  bubbles  could  have  escaped 
below  the  level  of  the  dental  cement  holding  them  and  hence  remained  in 
the  pipette. 

Two  monkeys  are  being  trained  in  a  visual  RT  task  at  Stanford.  For 
those  monkeys  as  well,  rigorous  control  of  fluid  intake  was  required  to 
obtain  adequate  performance.  Modification  of  computer  programs  and 
improvement  of  the  reinforcement  mechanism  solved  other  problems 
encountered  at  Stanford. 

I.  Plans  for  the  Coming  Year 

During  the  coming  year,  the  monkeys  now  Implanted  will  be  retrained 
on  the  bar-pressing  task  and  pairing  of  the  WS  with  the  IS  will  begin. 

A  first  task  will  be  to  determine  the  extent  to  which  blinks  and  eye 
movements  affect  the  intracerebral  electrodes.  This  will  be  done  by 
time- locking  EEG  samples  to  the  occurrence  of  blinks.  Task-related 
electrophyslological  recordings  will  then  begin,  involving,  first, 
attempts  to  obtain  P300-like  responses  in  the  passive  paradigm.  If  this 
is  not  immediately  successful,  we  will  continue  with  our  original 
emphasis  on  the  CNV,  with  study  of  the  P300  in  active  tasks  at  Stanford 
and  later  at  SRI  by  varying  the  proportions  of  WS  and  DS  trials  in  the 
CNV  paradigm. 


We  will  record  daily  for  two  weeks  to  observe  acquisition  of  the 
slow  potentials.  Once  stable  responses  are  observed,  massed-unit 
activity  will  be  monitored.  Next,  we  will  use  systemic  injections  of 
some  synaptic  blocking  agents  (e.g.,  atropine)  to  obtain  preliminary 
estimates  of  neurochemical  systems  involved  in  the  CNV — in  anticipation 
of  later  work  using  intracerebral  perfusions.  During  this  next  year  we 
will  also  begin  working  with  the  push-pull  perfusion  apparatus. 

At  Stanford,  the  monkeys  now  being  trained  in  a  visual  RT  task  will 
be  implanted  with  multistrand  electrodes  and  tested  in  the  two  types  of 
P300  paradigms  described  above. 

J.  Publications  and  Presentations 

Rebert,  C.  S.,  and  Donovan,  W.  J.  Cortical  and  subcortical 
event-related  potentials  in  monkeys  performing  the  cued 
reaction-time  task.  To  be  presented  at  the  Seventh 
International  Congress  on  Evoked  Potentials,  Florence,  Italy, 
September  1983. 

Rebert,  C.  S.  Chairman's  remarks  and  summary.  Symposium  on 
ERPs  in  relation  to  biochemistry  and  pharmacology.  Florence, 
Italy,  September  1983. 

K.  List  of  Professional  Personnel 

Charles  S.  Rebert,  SRI  International 
William  J.  Donovan,  SRI  International 
Edward  E.  Davis,  SRI  International 
Karl  H.  Pribram,  Stanford  University 
Jeffrey  E.  Evans,  Stanford  University 
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Appendix  A 

1C0NIX  LOGIC  SCHEMATIC 


ICON  IX  CNV  PROGRAM 
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ICON IX  CNV  PROGRAM  (Continued) 
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26—-, 


REMOTE  IS  ON 
Rear  pin  17  (G2)-»-C12  (OR) 
from  EXT.  Push  Button  Switch 


Connect  J1-J11  for 
Normal  operation 
J1-J12forContin.  Reinf. 

IS  TIME  OUT 

El  (Time  pulte  no.  5) — *-G4  (AND) 


RESPONSE  BAR 
BAR — —rear  pin  23 

(front  panel  C22) — - *-B12  j 

Hand  Switch — —rear  pin  25  /OR 

(E22) - ► 


27  e- 

I 

G22  (Out)  p—  C8  (Flip  Flop  Set) 

CIO  (Out) — "-B19  (Relay  for  IS:  J9 

Green:  orange  ttripe) 

|— Q11  (One  Shot) 

Q13  (Out) — »-E19  (12  v  pin  1  J2grey — --rear 
K22  pin  31 ,  JMP  21  A&B,  out 

(front  jack  II)  rear  pin  32:  RT  Start) 

(front  jack  I) 

K21  L22  (front  jack  12) 

t— -L3(+) 


L 


E8  (Flip  Flop  Set:  reinf.  contingency) 
E10  (Out)— -E5  (AND) 

E7  (OUT) - 1 


[—  F20  (48v  out  pin  6  J2:  white— rear  pin 
28.  JMP  122  &  H22,  out  rear  pin  29) 


B11  * 

B14  (Out) 


REINF  CNTR  ■ 


□ 


H 


L21  (front  jack  2) )  For  normal  operation  connect  J2-J3; 

M21  (front  jack  3)f  For  continuout  juice  flow  connect  J3-J12  (?) 

C19  (Relay  for  reinf.  tolenoid:  J9  tolid  blk  &  blue) 


S1 1  (One  Shot) 

T13  (Out) - i*-G19  (28  y  pin  3  J2, 

red:  total  bar  praaa  CNTR) 

1 — —  Oil  (One Shot)  L.J8  (Reset  timeout  FFlop) 

013  (Out) - t— E6(AND:  reinf.  contingency) 

F6  (AND:  for  abort) 

RT  Counter  Stop) 

r ^  A12  " 


IS.QFF 
FI  (Time  pulte  no.  6)- 

REMOTE  IS  OFF 
EXT.  SWITCH  — ra 


A14  (Out)— Q14  (One  Shot) 

Q16  (Out)— FIB  (12  w  pin  2  J2,  brown)  — -BERL  CNTR 

"STOP" 


-Ell  (OR) 
E14(0ut)- 


’  pin  16  (F2) 

OUT- 


t  fb}  *'S  Rtin*‘  FF,op  i*Ma) 

L_ 


“E13  (OR) 
E14  (Out) — 1 


*>«;.  *>  ■;> v*  V  •>  ’Jtr1 


'1 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


4 

8 


12 

14 

20 


PROGRAM  CNV2  IS  THE  MASTER  PROGRAM  FOR  RUNNING 
THE  CUES  REACTION  TIME  STUDY,  SAMPLING  EIGHT 
CHANNELS  OF  EITHER  EVENT  RELATED  POTENTIALS  OR 
MULTIPLE  UNIT  ACTIVITY,  AND  ALL  RELATED  DATA 
MANIPULATION  AND  8T0RA6E,  VIA  MENU  SELECTION. 

SOFTUARE  TRI66ER  INITIATES  SAMPLING  EVERY  10  MSEC. 

DIGITIZED  UAVEF0RM8  STORED  IN  MATRIX  AS  INTEGERS, 

PRIOR  TO  DISPLAYING  AND  UNITING  TO  WINCHESTER  DISK. 

AT  END  OF  SESSION, AVERAGES  WRITTEN  TO  FLOPPY  DISK;USER 
TRANSFERS  SINGLE-TRIAL  DATA  FROM  WINCKDISK  TO  MAGTAPE. 

PROGRAM  CNV2 
EXTERNAL  WATCH, IT1SUM 

COMMON  /DLOCK1/HSNEW, I8I/DLOCK2/ITIRSP/DLOCK3/XDIS/BLOCK4/MSROFF 
VIRTUAL  WSAV6< 8, 400 ),D8AVfl!8»400),YVAL!400>,XVAL!400) 

VIRTUAL  MATRIX <8, 400) , TAGS (AS) 

REAL*8  FNAHE<2) 

REAL  YVAL,XVAL,RL8TAT !  1  4) ,WSAVG,D8AVG,PREADJ,AIDEND,WSCNT , DSCNT 
REAL  SORTOT, TOTHS 

LOGICAL*!  YE8N0,TA8K(3> , GONOW , XDMONK <  6 ) , TYPE , EXTMSG ( 34) , COMEN T< 60) 
LOGICAL*!  FSTRNG ( 14) ,T0NE<3) , NUFILE < ! 4 > 

LOGICAL*!  F8PEC1 (4) , FBPEC2!7 ) ,FSPEC3(4) , F8PECA< 1 0 ) ,F SPECS ( ! 3) ,ERR1 
INTE0ER*2  H80LD ,M8NEW, ISI ,NRE8P<7) ,H8ECRT,IDIB,CALUV(8) 

INTEGER*2  MATRIX , 1ST AT, IDUFF < 8) , IBFCNT , ICHAN , TAGS , INSTAT (30 ) 
INTE6ER*2  MONTH! 1 2) , WINCHD, LCH ! 8 > ,LIHAX ! 8) , LININ ! 8 > , KLIPT <8 > 
INTEGER*4  1TINE 

DATA  WINCHD/3RDL1/,FNAHE( 1 )/! 2RDL1 FTN3  DAT / , RLST AT/ 1 4*0 • 0/ 

DATA  I8UFF/B*0/,NRESP/7*0/,INSTAT/30*0/ 

DATA  NONTH/3! ,28,31 ,30,31 ,30,31 ,31 ,30,31 ,30,31 / 

DATA  F8PEC1/"D',"L','1',0/,FSPEC3/'D' ,'A','T  '  ,0/ 

I  TRIAL-0  I  Countar  for  M  of  trial 

LIMIT-3770  I  Artifact  window  size!*  or 

NDAYS-0 
ITIR8P-0 
ITISEC-0 
LOOK-O 
INT6R1-0 
INTGR2-0 
D8CNT-0 
W8CNT-0 
I 8PEED-0 
TYPE  8 

FORMAT ( *  NAME  OF  MONKEY  18l  ',*> 

CALL  6ET8TR(S,1DN0NK,7,ERR1 >  >  Input  up  to  7  letters  of  nane 

IF(ERRI)  GOTO  4 

CALL  8C0P Y ( I DMONK , IDMONK , 2 )  I  Storo  initial  2  lottoro  only 

CALL  8COPY!'DYiXXTAIL.DAT', FSTRNG)  I  Initial***  filename 

CALL  INSERT < IDMONK, FSTRNG, 4, 2)  I  Inaart  lat  2  l*tt*r*  of  nano 
CALL  1DATE!M0N, IDAY , 1 YEAR)  I  Acc**a  data  antarad  upon  boot 

TYPE  12,M0N, 1DAY , I YEAR 

FORMAT  ( '  IS  T0DAY"8  DATEi '  ,  13,'/'  ,  13,  ,  13,  '  <Y  or  N>?',»> 

ACCEPT  14,YE8N0 
FORMAT ( A 1 ) 

IF ( YE8N0  .EG.  'Y'>  GOTO  24 
TYPE  20 

FORMAT!*'  YOU  FORGOT  TO  ENTER  DATE;  START  ALL  OVER  ',/> 

GO  TO  832 


-> 


I  Automatically  displayed  channel 


I  Zero  out  D6  sample  niza 
I  Zero  out  W8  sanpl*  size 


I  If  data  OK,  proceed 


B-l 


,  ■ 


y 


.  . 

I 

■J 


■  fa  .1  fa.JI  a 


24 


OPEN < UNI T-2,NAHE-FSTRNG, TYPE- 'OLD' .DISPOSE- 'SAVE' > 

READ  (2,*)  MONKEY, LNON, LDAY , LYEAR ,KONDTN .MONDAY .LIMHLD, 
9IST1HI,I8DURA,KPCTUS,CALUV 
REUIND  2 

CLOSE (UNIT-2, DISPOSE- 'SAVE') 

TYPE  28,LH0N,LDAY,LYEAR 
28  FORMAT(/,'  LAST  SESSION  UAS  ONi ' , 13 , ' /' , 1 3 , '/ ' , 13 ,/ ) 

LMON-NON  I  UPDATE  DATE  OF  HOST  RECENT  SESSION 

LDAY-IDAY 

LYEAR-IYEAR 

KONDAY-KONDAY+1  I  UPDATE  THE  •  OF  DAYS  UITHIN  THIS  CONDITION 

TYPE  32, MONDAY, KONDTN 

32  FORMAT (/,  '  THIS  UILL  BE  DAY  O', 13,'  OF  CONDITION  O',  13,'  {CHANGE?  ',«> 

ACCEPT  36 , YESNO 
36  FORMAT ( A 1 > 

IF< YESNO  .NE.  'Y')  GOTO  SOO 
TYPE  40 

40  FORMAT  <  /,3X,  '81—  IS-RT  TESTING  ',/,  3X ,  '02-  —  PSEUDOCONDITI ONING' ,/,  3X , 

9 '03 - US-DS  TESTING',/,'  UH1CH  0  FOR  NEXT  CONDITION?  UHAT  0  DAY?', 

9' (e.g.  ,4,1)1  ',«) 

ACCEPT  44, KONDTN, MONDAY 
44  FORMAT (13,13) 

GO  TO  500 

48  CALL  PUTSTR ( 7 , '  ENTER  CHANNELS  IN  ASCENDING  ORDER','  ') 

52  DO  56  1-1, B 

LCH ( I ) -0  I  Zero  out  channel  pointer* 

56  CONTINUE 

NCHS-0 
TYPE  60 

60  FORMAT ( '  UHICH  CHANNEL8  ARE  TO  BE  8AMPLED( 1 ,2 , . . . ,8/ ) » ' ,* > 

ACCEPT  -,LCH<1 ),LCH<2) ,LCH<3> ,LCH<4> , LCH ( 5 > ,LCH ( 6 ) , LCH (7 ) , LCH< 8 ) 
LHIGH-LCH(I)  I  Initialize  high  channel  pointer  to  lit  channel 
DO  68  M-1,8 

IF ( LCH ( M )  .EG.  0)  GOTO  72  !  Stop  at  enpty  pointer 

IF(LCH<M)  .LT.  LHIGH)  GOTO  48  !  Only  aacending  order  OK 

LHIOH-LCH(H) 

NCH8-NCHS+1 
TYPE  64,LCH(M) 

44  FORMATdOX, 'CHANNEL', 12) 

48  CONTINUE 

72  TYPE  74 

74  FORMAT < '  IB  THIS  LIST  CORRECT  T  (Y  or  N)>',«) 

ACCEPT  80, YESNO 
80  FORMAT  < At ) 

IF (YESNO  .NE.  'Y'>  GOTO  52 

IF ( MOD ( I YEAR ,4 )  .EG.  0)  M0NTH(2>«2?  I  If  leap  yr,  Feb  ha*  29 

NYEAR-MOD( I YEAR, 1 0)  I  Which  year  of  the  decade 

DO  84  JMON-1 ,MON 
NDAY8-NDAYS+M0NTH< JMON) 

84  CONTINUE 

NDAY8-NDAYS+IDAY-H0NTH(M0N>  I  Uhich  day  of  the  year 

IPART-(NDAYS-H0D(NDAYS,100) >/100 
JPART-(M0D(NDAYS,100)-M0D(NDAYS, 10)  )/10 
KPART -MOD ( NDAY8 ,10) 


F8PEC2( 1 )-IDHONK( 1  ) 

FSPEC2(2)-IDH0NK(2) 

ENCODE  (4,BB,FSPEC2(3>>  IPART , JPART , KPART ,NYEAR 
88  FORMAT  <411 ) 

FSPEC2(7)-0 

CALL  C0NCAT<F8PEC1 , FBPEC2,FSPECA,9> 

CALL  C0NCAT(FBPECA,FSPEC3,F8PECB,12) 

CALL  IRADSO( 1 2,FSPECB,FNAME ( 2) )  I  Stora  file  nans 

CALL  8C0PY (  'DL1 i XXXXXX . DAT ' , MUF ILE > 

CALL  INSERT(FSPEC2,NUFILE,5,6) 

DO  96  L-1,400 
DO  92  K-1,8 

MATRIX(K, L)-0  I  Zaro  out  singlo-trial  Matrix 

USAVG ( K , L ) “0  I  Zaro  out  US  avaraga  Matrix 

D8AV0 < K , L  > -0  1  Zaro  out  D8  avtraga  Matrix 

92  CONTINUE 

YVAL(L)-0  I  Zaro  out  display  Matrix 

XVAL(L)-0 
96  CONTINUE 

DO  tOO  H-1,NDAYS«5 

US0RD8-RAN( INTQR1 , INTGR2)  I  Start  RAN  subrtn  at  non  point 

100  CONTINUE 

NUSRUN-0 
NDSRUN-0 
ID0«"0 

rot  *"4000 

ID2-"44 
ID3-” 1 0000 
ID5--400 

PAUSE  'HIT  RETURN  TO  00' 

CALL  DEV1CE(-1 , IDO, "164 000) 

CALL  I POKE! " 170420, "0)  I  Turn  off  clock 

OPEN (UNIT-3, NAHE-'DLI i FTN3.DAT ', FORM- 'UNFORMATTED', INITIALSIZE-500) 
108  ITRIAL-ITRIAL«1  I  Sot  naxt  trial  • 

TYPE  112.ITRIAL 

1C  FORMAT (/, '  NEXT  TRIAL  IS  8', 13) 

IF ( KPCTUS  .LT.  100)  00T0  116  !  If  not  all  US  trials,  skip  ahaad 

GO  TO  124 

116  IF1KPCTUS  .EQ.  0)  00T0  132 

US0RDB-RAN(INT8R1  , INT0R2) 

CUTOFF-FLOAT (KPCTUS) /1 00. 

IF ( US0RD8  . OT.  CUTOFF)  00  TO  128  I  If  truo,  D8  ton*  noxt 

120  NDSRUN-0  I  Otharuiaa,  US  tona  naxt 

NHSRUN-NU8RUN+ 1 

IF ( NU8RUN  .OT.  < (KPCTUS/1 0)*3) )  00T0  1281  3  too  Many  US  tonot  T 
124  CALL  8C0PY< 'US', TONE) 

IFIMONKEY  .OT.  1024)  GOTO  140  I  Countarbalanca 

00  TO  136 
128  NUSRUN-0 

NDSRUN-MD8RUN+1 

IF (NDSRUN  .OT.  3)  GOTO  120  I  Alraady  had  3  DS  tonas  T 

CALL  8C0PY('DS',T0NE> 

IF (MONKEY  .OT.  1024)  GOTO  136  I  Countarba 1 anco 
80  TO  140 


132 


134 


lD4a"t00010 
60  TO  144 
104.-20002 
TYPE  146, TONE 

FORMAT ( '  Next  tr ial i ', 3A1 , 'tone' ) 

HERE  REPORT,  THEN  INITIALIZE  OTHER  STARTING  VALUES 
IF < ITRIAL  .EO.  1)  OOTO  148 
TYPE  152 

FORMAT (/,'  BAR-PRESSES  FOR  LAST  TRIAL  BY  PHASE  l  ') 

DO  140  Ja1,7  I  Zero  out  countort  for  bar-pressas 

TYPE  154,  J,NRESP( J) 

FORMAT ( '  BURINO  PHASE ' ,12,'  l' ,13,'  RESPONSES') 

NRESP<J>«0 

CONTINUE 

NSECRTaHSECRT-2500 
TYPE  1 44 ,  HSECRT 

FORMAT <  /, '  REACTION  TIME  FOR  LAST  TRIAL  UAS  ',15,'  MSEC') 
HSECRTa17500  I  Default  for  when  no  response 

JPHASE-1  I  Reset  trial  phase  indicator 

JDATUM-0  I  Reset  pointer  for  storing  data 

MSOLD-O  I  Counter  for  every  nsec  in  trial 

MSNEU-0  I  Updated  nsec  counter 

ISIaO  I  Counter  for  every  10  mic 

I8YN0T“0  I  Initialize  reject  reason  code 

MSROFF-20000  I  Initialize  reinf orcenent  tiner 

IDIS--40000 

CALL  DEVICE(-1,ID1, "144000) 

IF < ITRIAL  .EO.  1)  GOTO  180 

CALL  CCSETI(O)  I  Disable  ITI  response  counter 

CALL  BTIH(ITIME) 

CALL  CVTTIM(ITIHE,IHR8,IHIN,I8EC,ITCK) 

JTIR8P-ITIR8P  I  Store  N  of  responses  in  last  ITI 

ITI8ECa<3400*IHRS)+<40*IHIN)+<I8EC>-ITIBEC  I  Msec  since 

TYPE  174,ITISEC,1TIR8P  I  last  trial 

FORMAT < '  LAST  ITI  0F'tI4,'  SEC  INCLUDED' , 14 , '  BAR-PRESSES',/) 
ITIRSP>0  I  Reset  ITI  response  tally 

NOU-O 

CLOCK  UILL  RUN  AT  10  KHz,  OVERFLOW  EACH  1  MSEC 

CLOCK  INTERRUPT  UILL  ONLY  BE  USED  TO  UPDATE  HSNEU  AND  ISI 

CALL  CCRE AD (MBPRSB,N YET, MST ILL," 144010) 

1F( (MBPR88+MYET+M8TILL > . 0T.0)  OOTO  ISO 

CALL  CLOCKUd,  3, -10,,  HATCH,  "170420,  ”440)  I  Start  clock 

IF ( HSNEU  .LE.  MSOLD)  OOTO  184  I  Unit  for  next  clock  overflow 


H80LDaH8NEU  I  Resynch  nsec  counters 

IF < ISI  .LT.  10)  GOTO  208  t  Sanple  or  check  for  bar-presses 

I8I-0 

JOATUH- JDATUM+1 

CALL  AREADP1 1 ST AT , I BUFF, 8, -7 )  1  Sanple  channel(s) 

CALL  EXT81 2( IBUFF ,8) 

IF < ISTAT  .EO.  0)  SOTO  188  I  Halt  until  sanplin*  all 

IF ( ISTAT  .EQ.  1)  GOTO  194  I  Without  any  errors  T 

TYPE  192 

FORMAT < '  ERROR  IN  DATA  COLLECTION  ',/> 

CALL  IP0KE< ” 1 70420, "0)  I  Turn  off  clock,  then  abort  trial 


1  Sanple  channel(s) 

I  Walt  until  sanplin$  all  done 
I  Without  any  errors  T 


oV  A- •  • 


•-  •■•A 


ITRI AL*ITRIAL-1 

00  TO  440  I  Torninato  trial 

194  00  200  K-1,B 

HATRIX(K, J0ATUH>-IBUFF(K>  I  Tranofor  data  to  full  Matrix 

200  CONTINUE 

IF(HSNEU  .BE.  HSROFF)  CAUL  ROFF 
00  TO  104 

204  I8YN0T«3  I  Export nont"  «to  to  abort 

00  TO  (214,220,224,220,232,234),  JPHAS'"  I  Contiauo  abortad  trial 
208  CALL  CCREAD(HBPRSS,HYET , H8TILL, "1 440K  I  Any  contact  cloauraaT 

IF(HYET  .OE.  4094)  00T0  204  I  Chan  .  3-1 4{Exporinontor  abortad 

IF(HBPR88  .EQ.  0)  OOTO  212  I  If  non#,  tint  for  noxt  ovont  T 

NRE8P  <  JPHASE > "NRE8F ( JPHASE ) ♦ 1  I  iar-proot 

IF ( 1018  .NE.  "40200)  OOTO  212  I  Xf  08,  or  abort,  or  phaoo<4 
CALL  REINF 

IF (N8ECRT  .EU.  17500)  NSECRT-N8NEU  I  Noto  roaction  tlno 

C  TRAN8XTXON  TO  NEXT  PHASE  OF  TRIAL  YET  T 

212  00  TO  (214,220,224,228,232,234),  JPHASE 

214  IF  (H8NEU  .BT.  400)  OOTO  240  I  Bogin  CAL  tricar  pul  so 

00  TO  184 

220  IF (N8NEU  .BT.  450)  OOTO  244  t  End  CAL  trlggar  puloa 

00  TO  184 

224  IF(HSNEU  .BT.  1000)  OOTO  248  I  Bogin  tono 

00  TO  184 

220  IF ( HSNEU  .OT.  1200)  OOTO  252  I  End  tona 

GO  TO  104 

232  IF ( N8NEU  .BT.  ISON)  OOTO  254  I  Turn  on  light 

GO  TO  184 

234  IF ( HSNEU  .OT.  4000)  OOTO  244  I  Stop  oanpliag 

00  TO  184 
240  JPHASE-2 

CALL  DEV1CE(-1, 102, "144000)  I  CAL  pulta  ON 

SO  TO  184 
244  JPHASE-S 

CALL  0EVICE(-1, 103, "144000)  I  CAL  puloa  OFF 

00  TO  104 
248  JPHASEM 

CALL  DEVICE(-1 ,104, "144000)  I  Tono  ON 

00  TO  184 
252  JPHA6E-5 

CALL  0EVICE(-1, 105, "144000)  I  Tooa  OFF 

00  TO  184 
254  JPHA8E*4 

IF( (NRE8P ( 1 )+NRESP(2)+NRE8P(3 )+NRESP ( 4) ♦NREBP( 5) )  .EQ.  0)  60T0  240 
I8YN0T>2  I  Pronaturo  bar-prooc 

240  IF ( I8YN0T  .OT.  0)  OOTO  104 

IF(8C0HP(<' US'', TONE)  .NE.  0)  OOTO  242  I  If  08  trial,  no  18 
ID18-"40200 

242  CALL  DEVICE(-1 ,10X6, "144000)  I  Phaao  4  ovonto  bagin 

00  TO  104 


JPHASE-7  I  No  nore 

IF( ISYNOT  .GT.  0)  GOTO  296 
IF< IOIS  .EQ.  “40000)  GOTO  293  I 
1DUS0K-IDIB-16384+512  I 

CALL  DEVICE (-1 , I DUSOK," 144000)  I 
IDI8”" 1 200 

IF ( NRESP < 6 )  .EO.  0)  GOTO  26G  t 

IF (NSROFF  .EQ.  20000)  GOTO  280 
GO  TO  274 

CALL  CCR£AD(HDPRdS,HYET ,  HSTILL, M1 
IFtHYET  .GT.  HSTILL)  GOTO  272  I 
IF ( NSNEU  .LT.  LIHRT )  GOTO  268  I 
ISYNOT”!  I 

GO  TO  296 

M8ECRT*HSNEU  I  Record 

CALL  REINF 

NRESP<7)-1 

IF (NSNEU  .LT.  NSROFF)  GOTO  274  I 
CALL  ROFF 
60  TO  280 

IFdDIS  .NE.  "1200)  GOTO  278 
CALL  CCREAD(HDPRSS,HYET, HSTILL, “1 
IF ( HBPR8S  .EO.  0)  GO  TO  284  I 

NRESP(7)”NRE8P(7)*1 
CALL  REINF 

IF (NSROFF  .EO.  20000)  GOTO  292 
IFiNSNE U  .LE.  NSROFF)  GOTO  288  ! 

CALL  ROFF 

IF (HSNEII  .QE.  1S0FF)  GOTO  294  I 
GO  TO  280 


>ling  but  trial  not  over  yet 


If  DS  trial,  skip  ahead 

Switch  indicator  lights*  6th  to  7th 

Without  altering  ongoing  reisf 

If  no  1st  bar-press  yet,  skip  ahead 


64010) 

Was  there  a  contact  closureT 

Nore  tine  left  T 

Too  slow  reaction  tine 


I  Record  reaction  tine  to  1st  bar-press 


Wait  for  reinforcenent  delivery 


64010) 

If  no  bar-press,  skip  ahead 


Wait  for  reinf  relay  offset 


End  of  trial  yet  T 


IDIS””1 000 

CALL  DEVICE(-1,1DIS, "164000)  I  Phase  N7  light  on 
CALL  CCREAD<H»PR8S,HYET, HSTILL, "164010) 

IF (HBPRBS  .EG.  0)  GOTO  29S 

NRESP<7)«NRE8P(7)+1 

IF ( NSNEU  .LT.  I80FF)  GOTO  294 

CALL  DEVICE(-1 , IDO, "164000)  !  Light  OFF,  end  reinf 

CALL  IP0KE< "170420, "0)  !  Turn  off  clock  during  ITI 

CALL  8TIH< 1TIHE > 

CALL  CVTTIH< I TINE, I HRS, ININ, I8EC, ITCK) 

ITISEC»(3600*IHRS)  +  (60*ININ)  +  < ISEC) 

N0U”ITI8EC  (  Store  tine  at  end  of  this  trial 

SEGIN  INTER-TRIAL  INTERVAL  RESPONSE-COUNTING, 

THEN  REVIEW  DATA  FOR  ARTIFACTS,  THEN  STORE  RAU  DATA 
TENPORARILY  ON  WINCH  DISK  AS  A  SINGLE  RECORD  PER  TRIAL. 

CALL  CC8ETI<ITISUN, "144010, ”270)  I  Count  «  ITI  bar-presses 
CALL  WINDOW! HATRIX,LH I 8N,LIHIT ,LCH,LIHAX,LIHIN,KLIPT) 

TYPE  300 

F0RHAT1/,'  ENTER  CONHENTtup  to  39  chars)  FOR  THIS  TRIAL*',/) 
CALL  8ET8TR(S,C0NENT ,39) 

CALL  STRPAD! COHEN T ,39) 


TAGStl >-HONKEY 
TAGS  ( 2 ) -HON 
TAGS ( 3 ) -IDAY 
TAGS<4)-IYEAR 
TAGS<5)-K0NDTN 
TAGS<6)-K0NDAY 
TAGS(7)-KPCTIIS 
TAGS<8)-LINHLD 
TAGS<9)-ISTIM1 
TAGS<10)-ISDURA 
TAGS< 1 1 )-LIHIT 
TAGS< 1 2 )»NCHS 
DO  304  1-13,20 
TAGS( I )-LCM< 1-12) 

CONTINUE 

T  AGS (21 )-USCNT 

T AGS < 22 ) -DSCNT 

T AGS < 23 ) -NSECRT-250O 

TAGS  <  24 ) -ID4 

TA6S(25)-JTIRSP 

TAQS<26)-N0U 

TAGS < 27) -I TRIAL 

TAGS (2S)-ISYN0T 

DO  30S  1-29,35 

TAGS<I)-NRESP<r~28) 

CONTINUE 
DO  312  J-36,43 
T  AGS  <  J )  -  LIHAX  <  J--35 ) 

TAGS( J+B)-LIHIN< J-43) 

TAGS<J*16)-KLIPT<J-51 ) 

TAG8< J+24)-CALUV( J-59) 

CONTINUE 

UR1TE  (3)  TONE, TAGS, ( (MATRIX < ICH< H) ,K > ,K-1 , 400) ,H-1 , NCHS ), COHENT 
IF < 1SYN0T  .GT.  0)  GOTO  324 
DO  320  1-1,8 

IF(KLIPT(LCH(I) )  .GT.  5)  ISYNOT-4  !  Nor*  than  5  artifacts? 

IF (LCH( I >  .EG.  LHI6H)  GOTO  324 
CONTINUE 

GO  TO  <328,364,372,380,388),<I8YN0T+1) 

IF(SCONP('DS',TONE)  .EG.  0)  GOTO  348  I  If  D8  trial, updat*  DSAVQ 

DO  340  L-1,8 

MCH-LCH(L) 

DO  332  N-1,400 
PREADJ-USAVG(NCH,N) 

ADDEND-HATRIX(HCH,N> 

U8AVG(NCH,N)-(PREADJ*USCNT+ADDEND>/(USCNT+1 .0) 

CONTINUE 

IF ( NCH  .EQ.  LHIGH)  GOTO  344 

CONTINUE 

USCNT-WSCNT+1.0 

60  TO  396 


v  v*  v ■■•  .■  7 ^ '.H-rrrv 


348  00  354  L-1,8 

HCH-LCH<L> 

DO  352  N-1,400 
PRE AD J-DSAV6 ( NCH , N ) 

ADDEND>HATRIX<HCH,N) 

D8AVG(HCHf N)*<PREADJ*DSCNT+ADDEND)/ ( DSCNT+1 .0) 

352  CONTINUE 

IF (HCH  .EQ.  LHI0H)  00T0  340 
354  CONTINUE 

340  D8CNT-DSCNT*1.0 

80  TO  394 

344  TYPE  348 

348  FORMAT!/,'  TOO  SLOW  REACTION  TIME;  DATA  NOT  ADOED  TO  AVERAGE'' ) 
PAUSE  'HIT  RETURN' 

60  TO  394 
372  TYPE  374 

374  FORMAT C/,'  PRENATURE  BAR-PRES8;  DATA  NOT  ADDED  TO  AVERAGE') 

PAUSE  'HIT  RETURN' 

80  TO  394 
380  TYPE  384 

384  FORMATS, '  EXPERIMENTER  INTERVENED;  DATA  NOT  ADDED  TO  AVERAGE') 

PAUSE  'HIT  RETURN' 

60  TO  394 
388  TYPE  392 

392  FORMAT </,'  TOO  MANY  ARTIFACTS ;  DATA  NOT  ADDED  TO  AVERAGE') 

PAUSE  'HIT  RETURN' 


IF ( I8PEED  .EQ.  1)  GOTO  448 
IDCH-LOOK 
DO  404  N-1,400 

YVAL<N) -MATRIX! IDCH+1 ,N)+3G0 
XVAL!N)-N«150«N 
CONTINUE 

CALL  8IN1T(1)  I 

CALL  SEND  I 

CALL  8TX0X 

CALL  8T0TU< 7 )  I 

CALL  8TERR<2> 

TYPE  412 

F0RMAT<25</)>  I  Cli 

DO  414  M-1 ,400 
CALL  POINT (XVAL(M) , YVAL(M) > 

CONTINUE 

CALL  6END  I  Oo  to  transparent  nod# 

CALL  HOLD  I  Halt  for  carriage  return 

CALL  ERASE  I  Clear  acraen 

CALL  SEND  I  Go  to  tranaparent  node 

TYPE  420 

FORMAT < '  VIEW  MORE  SINGLE-TRIAL  DATA  (Y  or  N>  T  ',•> 
ACCEPT  424,YEBN0 
FORMAT  <A1 ) 

IF < YESNO  .EO.  ' Y' )  GOTO  444 


Set  default  paraneters 
Bo  to  tranaparent  node 

Graphic  output  on  conaole 
I  Print  error  and  warning  Message# 


!  Plot  values 
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428 


TYPE  428 

FORMAT < '  VIEU  MORE  AVERAGE  DATA  (Y  or  N)  T  ',*> 

ACCEPT  432.YE8N0 
432  FORMAT ( A 1 > 

XF<YESNO  .EQ.  'Y'>  GOTO  474 

O  00  TO  448 

0436  TYPE  440 

0440  FORHAT(/,'  Entor  "0“  to  start  naxt  trial,  *M"  for  nanu',t) 

0  ACCEPT  444, YESNO 

0444  FORMAT  <  A 1 > 

O  1F< YESNO  .EO.  '0')  GOTO  108 

448  TYPE  450 

430  FORMAT (/,  '  HIT  RETURN  FOR  NEXT  TRIAL,  ORi'> 

TYPE  452 

432  FORMATS  PICK  FROM  MENU  i  ?T,8T,EX,DS,DA,CP,PL, . . .' ,*) 

ACCEPT  456,  TASK< 1 > ,TASK<2) 

454  F0RMAT<2A1 ) 

IF(8C0HP('TT',TASK>  .EO.  0)  GOTO  458  I  Display  nonu 

IF(SCONP('QT',TASK>  .EO.  0)  GOTO  456  I  Quit  •■•■ion 

IF (8C0NP ('EX', TASK)  .EO.  0)  GOTO  440  I  Exit  ■••■io» 

IF(SCOHP('DS',TASK)  .EO.  0)  OOTO  444  I  Display  data 

IF ( 8C0NP ('DA'', TASK)  .EC.  0)  OOTO  476  I  Display  avtrag* 

IF (8C0MP ('CP', TASK)  .EQ.  0)  OOTO  500  I  Chang*  paranotsrs 

IF < 8C0HP ( 'PL'' , TASK )  .EQ.  0)  QC  9  648  I  Plot  data 

00  TO  108 
458  TYPE  460 

460  FORMAT ('  MENU  IS  A8  FOLLOUSl  TT— -EXPLAIN  MENU',/,23X, 

7'QT— QUIT  SESSION  (DELETE  DATAFILES)  ',/,23X,'EX - EXIT 

7'FROH  SESSION ( SAVE  DATAFILES) ' ,/,23X , 'DB— DISPLAY  SINGLE 
7TRIAL  DATA' ,/,23X,'DA- — DISPLAY  AVERAGES' ,/, 23X , 

7' CP— CHANGE  PARAMETERS' , 7, 23X, 'PL— PLOT  DATA',/,/) 

00  TO  448 

464  TYPE  468 

448  FORMAT < '  VIEU  DATA  FROM  WHICH  CHANNEL  (1-8)  T  ',») 

ACCEPT  472, IDCH 
472  FORMAT (13) 

IDCH-IDCH-1 

IF ( IDCH  .LT.  0  .OR.  IDCH  .OT.  7)  OOTO  464 
00  TO  400 

474  TYPE  480 

480  FORMAT ( '  U8  OR  DS  T  WHICH  CHANNEL  T  («.g.  84  or  U8  or  I1>',«> 
ACCEPT  484, TYPE, NUMCH 
484  FORMAT( A1 ,11) 

IFUVPE.NE.'U'  .AND.  TYPE.NE.'D')  GOTO  474 
IF (NUMCH.LT . 1  .OR.  NUMCH. OT. 8)  GOTO  476 
IF(TYPE  .EQ.  'D')  80T0  4F2 
DO  488  K»1,400 
YVAL( K)«U8AVQ( MUNCH, K) ♦380. 

XVAL(K)"K+130+K 
488  CONTINUE 

80  TO  408 
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4*2 


m 

fa 


DO  4*4  K-1,400 
Y VAL ( K ) -DSAV8 ( MUNCH , K )  +  380 . 

XVAL(K)-K+1S0+K 
CONTINUE 
00  TO  408 

TYPE  504, KPCTU8,L1MHLB, LIMIT, (LOOK+1 > 

FORMAT  ( / , '  PARAMETERS  ARE  AS  FOLLOWS  I '  ,/ ,  '  1)  X  OF  IIS  TRIALS*  ,14, 
9/,'  2>LIH1TED  HOLD ( Mttc ) *  ',15,/,'  3) ARTIFACT  LIMIT*  ♦  /-  ',14,/, 

9'  4 >CHANNEL  DISPLAYED  AT  END  OF  EACH  TRIAL-  ',12,/,'  5>CAL  PULSESt') 

DO  St2  N-t ,8 

TYPE  S08,M,CALUV(M) 

F0RHAT<3X,'CH',I2,'t  ',I5,'uV'> 

CONTINUE 

TYPE  51  A, 1ST INI, ISDURA, 1 SPEED 

F0RMAT1/,'  4 > INTER- STIMULUS  INTERVAL ( 21 0-2990  amc )-  ',15,/, 

9'  7)18  DURATION 02800  mac)*  ',14,/,'  8>SPEED(0-*iow;l-fatt>-  ',12) 
TYPE  520 

FORMAT ('  ENTER  NUMDER  OF  ITEM  TO  DE  CHANGED,  OR  0  IF  NONE  I  ',») 
ACCEPT  524.NPARAH 
FORMAT  < 12) 

80  TO  (444,528,540,552,544,594,408,420,432),  (NPARAM+1 ) 


TYPE  532 

FORMAT ('  UHAT  3(0-100)  TRIALS  8H0ULD  DE  US  T  ',•> 

ACCEPT  534.KPCTUS 
FORMAT (14) 

80  TO  500 
TYPE  544 

FORMAT ( '  HOU  MANY  MSEC  FOR  LIMITED  HOLD  T  ',*> 

ACCEPT  548.LIHHLD 
FORMAT (15) 

80  TO  500 
TYPE  554 

FORMAT ( '  NEU  UINDOU  LIMIT-  ',*) 

ACCEPT  540, LIMIT 
FORMAT (14) 

80  TO  500 
TYPE  548 

FORMAT ( '  CHANNEL  TO  LOOK  AT  FIRST(1-8>  -  ',») 

ACCEPT  572, LOOK 
FORMAT (12) 

LOOK-LOOK-1 
00  TO  500 
DO  584  J-1,8 
TYPE  580, J,CALUV( J) 

FORMAT ( 3X , 'CH  ',11,'  CAL-  ',I5,'uV'> 

CONTINUE 
TYPE  588 

FORMAT(/,'  CHANGE  CAL  uV  VALUES  T  ',*> 

ACCEPT  592, YE8N0 
FORHAT(AI) 

IF ( YE8N0  .NE.  'Y')  GOTO  500 
TYPE  400 

FORMAT ( '  ENTER  CHANNEL  8, THEN  NEU  uM  CAL IDRAT 1 ON ,• .9 .  5,75  I  ',♦) 


.*.  -\4 


v  *<■.*!«.  4L«.  «:■ 


i  «,  ■  J 1 J",  kP 


=*??:y.  r.  y; :■  arran:1:?'..-*',: 


'.’  ■7  v 


ACCEPT  604 , K ,CALUV ( K ) 

604  FORMAT (12,14) 

BO  TO  S76 
608  TYPE  412 

612  FORMAT</,'  ENTER  NEU  INTER-STIMULUS  INTERVAL ( 2 1 0-2990  nucli  ,*> 

ACCEPT  41 6, 1STIHI 
616  FORMAT (15) 

IF<H0D(ISTIH1,10)  .EQ.  0)  GOTO  SOO 

CALL  PUTSTR<7,'  MULTIPLES  OF  10  ONLY' , *  ') 

00  TO  608 
620  TYPE  624 

624  FORMAT!/,'  ENTER  NEU  IS  DURATI0NO2800  n*ac)i  ',♦> 

ACCEPT  628, IBBURA 
628  FORMAT < 14) 

IF (MODI I SOUR A, 10)  .EQ.  0)  SOTO  SOO 

CALL  PUT8TR(7, '  MULTIPLES  OF  10  ONLY','  ') 

60  TO  620 
632  TYPE  436 

636  FORHAT(/,'  Entar  “1"  for  foot,  or  “0"  for  aloa  nodal  ',»> 

ACCEPT  640, I8PEED 
640  FORMAT  < 12) 

80  TO  448 

644  ISON* I ST I HI +1 000  I  Conputa  uhon  to  tura  light  on 

IS0FF-IS0N+1SDURA  I  Conputa  whan  to  shut  light  off 

LIHRT-ISON+LIHHLD  I  Conputo  linitod  hold  cutoff(ntac) 

IF ( ITRIAL  .EO.  0)  GOTO  S2 
60  TO  448 


648 

652 

6S6 


660 

644 

668 


C 


672 


TYPE  4S2 

FORMAT < '  THIS  OPTION  NOT  YET  AVAILABLE  ',/) 

60  TO  448 

CLOSE (UNIT-3, DISPOSE- 'DELETE' > 

CALL  I POKE < "170420,"©)  I  Shut  off  clock 

CALL  CC8ETI (0) 

00  TO  832 
TYPE  664 

FORMAT < '  OK  TO  END  THIS  SE8SI0N  (Y  or  NX  ?',»> 

ACCEPT  648, YESNO 
FORMAT  <  A 1 ) 

IF (YESNO  .NE.  'Y'>  60T0  448 

CLOSE (UNIT-3, 01 SPOSE-'SAVE' )  I  Sava  singlo-trial  data 
ICHANL-I6ETCO 

IF ( ICHANL  ,LT.  0)  STOP  'NO  CHANNEL' 

IF ( IFETCH(UINCHD)  .NE.  0)  STOP  'FATAL  ERROR  FETCHING  HANDLER' 
CALL  IRENAM< ICHANL, FNAME) 

CALL  1CL08E( ICHANL) 

CALL  IFREEC( ICHANL ) 

CALL  IPOKE< " 1 70420, “0 )  t  Shut  off  clock 

CALL  CC8ETK0)  I  Ignora  contact  closuras 

An  nok"  trials  naithar  abortad,  nor  rejactad  duo  to  artifact* 


T0TM8-0 
80RT0T-0 
NREINF-0 
00  472  J-1,8 
KLIPT ( J ) -0 
CONTINUE 


I  Sun  RTa  for  ok  US  trial* 

I  Sun  tquarod  RTa 
I  Total  N  rolnforconont* 

I  Total  8  artifact*  on  art. -raj.  US  trials 


P-ll 


D 


PAUSE  '  UPDATE  TABLE' 

OPEN ( UNIT-2, NAME-FSTRNG, TYPE- 'OLD' .DISPOSE- 'SAVE'  ) 

UNITE  <2,->  NONKEY ,LNON ,LDAY , L YE AR .KONDTN, MONDAY , LIHHLD, 

9ISTIMI, I8DURA,KPCTWS,CALUV 
CLOSE  (UNIT -2,  DISPOSE- 'SAVE'') 

0  PAUSE  '  NOU  REOPEN  RENAMED  FILE' 

0  OPEN (UNIT-3, ERR-725.NAME-NUFILE, FORM- 'UNFORMATTED ' .TYPE* 'OLD' > 

OPEN ( UNIT-3, ERR-72S.NAME-NUFILE, READONLY,  TYPE-'OLD', 

7F0R M-' UNFORMATTED', DISP08E-'SAVE') 

D  PAUSE  '  NOU  REVIEU  RECORDS' 

DO  724  NREC-1 , ITRI AL 

READ  (3)  TONE, TAGS, ( ( MATRIX ( M ,K ) , K-1 ,400 ) ,H-1 , NCHS) , COMEMT 
NDPS-0  I  S  of  bar-presses  in  photo*  1-9 

IF ( TA8S( 27 )  .GT.  1)  GOTO  484 
DO  400  1-1,20 

INSTATd)-TAGS(I)  t  Session-uide  paran*t*r* 

480  CONTINUE 

INSTAT (21 ) -USCNT 
INSTAT (22)-DSCNT 

404  INSTAT(23)-INSTAT(23>+1  t  «  of  trial* 

INSTAT(30)-IN6TAT(30)+TAGS(29)  t  N  ITI  bar-pr**»e* 

DO  488  L-29,33 

NBP5-NBP5+TAG8U)  I  8  pha*o  1-5  bar-pro**** 

488  CONTINUE 

NBPI8-TAGS(34)+TAGS(39)  I  8  IS  bar-pro**** 

INSTAT (29)>INSTAT ( 29 ) +NBP5+NBPI S+TAGS (25 )  I  All  b*r-pre***s 

IF ( SCOMP ('DS'.TONE)  .ED.  0)  GOTO  714  I  If  D8,  »kip  ahead 
INSTAT(24)«INSTAT<24>+1  t  8  of  US  trial* 

IF (TA6S(28)  .GT.  0)  GOTO  492  !  If  not  ok  trial,' P»kip  ahead 

T0THS-T0TNS+TAGS(23>  I  RT  tally  for  ok  US  trial* 

SGRT0T-80RT0T+FL0AT (TAGS (23) )**2  I  RT  squared  tally 

NREINF-NREINF+NBPIS  f  Reinforcement  tally 


492 

494 

700 

704 

705 

712 

714 

720 

724 


729 

724 


GO  TO  (724, 494, 700, 704, 708), (TADS (28)^1) 
INSTAT (29) -INSTAT (29 )+1 
GO  TO  724 

INSTAT (24)-INSTAT(24)+1 
GO  TO  724 

1N8TAT(27) -INSTAT ( 27) +1 
80  TO  724 

1N8TAT (28) -INSTAT (28)91 
DO  712  J-1,8 

KL1PT ( J)-KLIPT ( J)+TAG8( J+51  ) 

CONTINUE 
60  TO  724 

IF ( 18YN0T  .GT.  1)  GOTO  724 
RL8T AT ( 4  > -RL8TAT ( 4  > +NBPIS 
00  TO  724 
CONTINUE 

CL08E (UNIT-3, DISPOSE-'SAVE' ) 

80  TO  727 
TYPE  724 

FORMAT ( '  ERROR  REOPENING  FILE  ON  DL1 
GO  TO  832 


I  ISYNOT  valuo? 

I  US  reject — too  slow  RT 

1  US  r*j*ct--pr*mture  bar-press 

I  US  reject — E  opted  to  abort 

I  US  rej*ct--too  Many  artifact* 

I  Artifact  tallyiUS  rejectjnot  aborted 


I  Skip  DS  trial*  with  problem 
I  DS  trial  bar-pressesipha***  4+7 


> 


B-12 


D  PAUSE  '  COMMENT  HEADER' 

72?  PRINT  728 

7 28  F0RHAT(5(/),1SX, 'LISTING  OF  SESSION  COMMENTS :',/ > 

D  PAUSE  '  REOPEN  DL1  FILE' 

OPEN (UNIT-3 .NAME-NUFILE, FORM- 'UNFORMATTED', TYPE* 'OLD') 

732  READ< 3, END-740)  TONE.T AGS , < ( MATRIX <LCH<M) , K> , K-1 , 400 ) ,M«1 , NCHS > , COMENT 

PRINT  734,TAGS(27>,<C0HENT<K>,K-t , LEN( COMENT > ) 

734  FORMAT < '  TRIAL  S', 13,'  l  ',5?(A1>> 

GO  TO  732 

740  CLOSE! UNIT-3 ^DISPOSE* 'SAVE' ) 

D  PAUSE  '  COMPUTE  STATS' 

XI -INSTAT (24)  !  Total  M  of  US  trial* 

X2-INSTAT (23)  I  I  of  US  aborts  due  to  slow  RT 

X3-INSTAT<24 )  I  "  duo  to  prenature  response 

X4-IN8TAT< 2? )  I  “  duo  to  E  intervention 

X5-INSTAT<28 >  I  U  of  US  rejects  due  to  artifacts 

X4-X1-X2-X3-X4-X5  I  X4  (-USCNT)  i  «  of  ok  US  trials 

1F(X1  .LE.  0)  GOTO  752 

RLSTAT ( 1 )-( (X2+X3+X4 ) /XI ) *1 00*  I  X  of  US  trials  aborted 

RL8TAT(2)-(X5/X1 )-100.  I  X  of  US  trials  artifact-rejected 

IF(X4  .LE.  0.)  GOTO  744  I  If  no  US  trials  OK, skip  ahead 

RLSTAT (3)-T0TMS/X4  I  Mean  RT  for  ok  US  trials 

RLSTAT(4>-SQRT!S0RT0T/X4-(RLSTAT(3>«*2>)  I  Stand,  dev. 

RLSTAT (5>*FL0AT (NRE1NF )/X4  I  Avg  8  of  relnf  per  ok  US  trial 

744  IF ( X5  .LE.  0.)  GOTO  752  t  If  no  US  artifact-re jects, skip  ahead 

DO  748  1-1,8 

RLSTAT (I+6)-FL0AT(KLIPT(I)) /X5  !  Avg  8  artifacts  per  US  reject 

748  CONTINUE 

752  IF < DSCNT  .LE.  0.)  GOTO  754 

RL8TAT(4)-RLSTAT<4) /DSCNT  <  Avg  «  resp(phases  4+7)for  ok  DS 

D  PAUSE  '  PRINT  STATS' 

754  PRINT  740 

740  FORMAT (S</) ) 

CALL  PUT8TR<4, IDMONK , '  ') 

PRINT  744,<IN8TAT(I),I-1,4) 

744  FORMAT!/,'  Monkey  «' , 15, 5X, 'Datei ' , 13, '/' , 13, '/' , 13) 

PRINT  7A8,(INSTATU),J-5,7> 

748  FORMAT!/,'  Condition  N',I2,'  i  Day  N',I3,'  ;  X  US  trials-', 13) 

PRINT  772,(INSTAT(K),K-8,10) 

772  FORMAT!/,'  Llnited  hold ( ns )- ' , 15 , / , '  Inter-st inulus  inter val ( ns )«' , 

915,/,'  IS  duration!ns)-',14) 

PRINT  774, ( INSTAT! L ) ,L-1 1 , ( INSTAT ( 1 2) *  1 2 ) > 

774  FORMAT!/,'  Artifact  Unit-  ♦/-' , 14,/, /, '  8anpled  the  fol loving' , 12, 

9'  channels*', 8<1X,I2>> 

PRINT  780, INSTAT (21), INST AT (22) 

780  FORMAT!/,'  Sanplo  size  for  US  average-' , 13, '  ;  for  DS  average-', 13) 
PRINT  784,INSTAT(23),INSTAT!24> 

784  FORMAT!/,'  Total  8  trials-', 13,/,'  •  of  US  trials-', 13) 

PRINT  788, (INSTAT!M),M-25,28) 

788  FORMAT!/,'  8  aborts  due  to  slow  RT-',I3,/,'  N  aborts  due  to  prenature 
9  bar-pressing-', 13,/,'  8  aborts  due  to  E  opting  to  abort-', 13,/, 

9'  8  rejects  due  to  artifacts-', 13) 

PRINT  792, INSTAT (29) , INSTAT (30) 

792  FORMAT!/,'  Total  8  bar-presses-', 15,/, '  All  bar-presses  during 
9  ITIs-' , 15) 
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PRINT  79 A, RL ST AT ( 1 ) ,RL8TAT (2) 

7W  FORNAT ( / , "  X  US  trials  abortad-" ,F4 .0,/ , "  X  of  US  trials  rajactad 

9  dua  to  artifacts-" ,F4.0) 

PRINT  800,RL8TAT (3),RL8TAT(4) 

800  FORMAT!/,"  Naan  RT (ns)  for  "ok"  US  trials-" ,F7. 1 ,/, 

9"  Standard  daviation  for  thasa  RTs-"(F10.4) 

PRINT  804,RLSTAT ( 5 ) ,  RL8T AT ( A ) 

804  FORMAT!/ , "  For  ok  U8  trials, naan  8  rainforcanants-" ,FA.3,/, 

9"  For  ok  D8  trials, naan  0  bar-prassas( in  phasas  A+7 ) »" , FA. 3 ) 

PRINT  808, !RL8TAT!K),K-7,14) 

808  F0RNAT</,"  For  artif act-ro jactad  US  trials, naan  tt  daviant  points:', 
9/,2X, "Chan  1",2X,"Chan  2",2X,"Ghan  3",2X,"Chan  4",2X,"Chan  5", 

92X, "Chan  A",2X,"Chan  7",2X,"Chan  8" ,/,8(2X,FA. 3 ) ) 

D  PAUSE  "  CREATE  0Y  FILE" 

CALL  INSERT(FSPEC2,F8TRN0,4, A) 

OPEN ( UNIT-2, NANE-FSTRNG, TYPE- "NEU" , FORM- "UNFORMATTED" , DISP0SE-"8AVE" ) 
URITE  <2>  (IN8TAT<N),N-1,30),(RL8TAT(N),N>1,14) 

00  81 A  1-1 , NCHS 
DO  812  J>1,4Q'> 

YVAL ( J) >USAVG(LCH( I )  ,  J)  I  NULT  DY  USCNTT 

812  CONTINUE 

URITE  (2)  (Y VALIN), N-1, 400) 

81 A  CONTINUE 

00  824  K-1 , NCHS 
DO  820  L-1,400 

YVAL (L) -OSAVG(LCH(K> , L )  I  HULT  IY  DSCNTT 

820  CONTINUE 

URITE  (2)  ( YVAL(N) ,N-t ,400) 

824  CONTINUE 

CLOSE (UN IT-2, 0ISP08E-"SAVE" ) 

TYPE  828 

828  FORMAT!/,"  8E8SI0N  18  OVER;  PUT  NEU  FILE  ON  MAGTAPE  BY  TYPING:",/) 

CALL  8C0PY < "COPY  DL1lXXXXXX.DAT  HTlXXXXXX.DAT  " , EXTMSG) 

CALL  INSERT (F8PEC2, EXTMSG, 10, A) 

CALL  IN8ERT (F8PEC2,EXTMSG,24,A) 

CALL  PUT8TR<7, EXTMSG,"  ") 

832  CALL  EXIT 


SUBROUTINE  HATCH 
COMMON  /BLOCK 1 /MSNEU , ISI 

MSNEU-HSNEU+ 1  I  Updata  asac  countar 

I8I-ISI+1  I  Updata  intar-sanpla  intarvsil  tinar 

CALL  IPOKE!" 170420, ”133)  I  Claar  ovarflow  flag 

RETURN 

END 


SUBROUTINE  ITX8UH 
COMMON  /BL0CK2/ITIRSP 

836  CALL  CCREAD(HBPRSS,HYET , MSTILL, " 1 640 1 0) 

IF ( HSTILL  . GT .  0)  GOTO  836 

ITIRSP-ITIR8P+1  I  Update  N  of  ITI  bar-pretses 

CALL  IP0KE("164010,"100) 

RETURN 

END 

SUBROUTINE  UINOOU < MATRIX , LMIGN, LIHI T , LCH,LIMAX ,LIMIN, KLIPT ) 
VIRTUAL  MATRIX (8 , 400 ) 

INTE6ER*2  MATRIX , LCH< 8 ) ,LIMAX<8) ,LIMIN( 8) ,KLIPT( 8 ) 

DO  844  L»1,8 

IF ( LCH ( L )  .EQ.  0)  GOTO  848  I  End  at  1st  null  poiatsr 

NX>LCH(L)  I  Point  to  next  channsl  with  data 

LIHT0P-MATRIX(NX,1 )  I  Initial  nax  value 

LIMB0T-HATRIX(NX,1 )  I  Initial  nln  value 

KLIPT (NX ) «0  I  Reset  artifact  counter 

DO  840  H-1,400 

IF ( IADS ( MATRIX ( NX ,M ) )  .GT.  LIMIT)  KLIPT < NX)>KLIPT (NX > *1 
LIHTOP-HAXO ( MATRIX ( NX, M) , LIMTOP > 

L1HB0T-MIN0( MATRIX < NX, M) ,LIMBOT> 

B40  CONTINUE 

LIHAX (NX) "LIMTOP  I  Store  highest  datun  for  Chan  n 

LIMIN(NX)*LIHDQT  I  Store  Xouest  datun  for  Chan  n 

844  CONTINUE 

848  RETURN 


SUBROUTINE  REINF 

COMMON/BLOCK1  /KSNEU , ISI/BL0CK3/IDI S/BL0CK4/N8R0FF 
INTE6ER*2  IDIS 

IDTANG-IDIS+1024  I  Set  bit  810  of  HCO  register 

CALL  DEVICE(-1 ,IDTANG, "164000) 

HSROFF«M8NEU  ♦  SO  I  Set  relay  operation  tine 

RETURN 
END 

SUBROUTINE  ROFF 

COMMON/BLOCK 3/1 DIS/BL0CK4/MSR OFF 
INTEGER*2  IDIS 

CALL  DEVICE(-1 ,ID18, "164000) 

M8ROFF-20000 
RETURN 
END 


I  Clear  bit  M10  of  HCO  register 


so*  oononoonnon 


i 


: 


PROGRAM  P300  IS  THE  MASTER  PROGRAM  FOR  RUNNING 
THE  UNCUED  TONE  PROTOCOL,  SAMPLING  FOUR 
CHANNELS  OF  EITHER  EVENT  RELATED  POTENTIALS  OR 
MULTIPLE  UNIT  ACTIVITY,  AND  ALL  RELATED  DATA 
MANIPULATION  AND  STORAGE,  VIA  MENU  SELECTION. 

SOFTUARE  TRIGGER  INITIATES  SAMPLING  EVERY  X  MSEC. 
DIGITIZED  UAVEFORMS  STORED  IN  MATRIX  AS  INTEGERS, 
ARTIFACT-REJECTED  AND,  OPTIONALLY,  DISPLAYED. 

AT  END  OF  EACH  SET,  AVERAGES  URITTEN  TO  FLOPPY  DISK. 
*********C»co#»*on  ;  Higher  probability*************** 
***********R-r are  ;  Lower  probability**************** 


PROGRAM  P300 
EXTERNAL  HATCH 

COMMON  /BLOCK! /MATRIX, JDATUH,I8UFF 

VIRTUAL  HISUH(4,400),LQSUM(4,400),YVAL(400),XVAL(400> 

REAL  YVAL,XVAL,HISUM,LOSUH,HICNT,LOCNT 
LOGICAL* 1  YESNO,TASK<3),IDSUBJ<B),TYPE,ICHAR 
LOGICAL*!  FSTRNGf 1 4 > , TONE ( 4 > , FSPEC ( 7 > , ERR  1 ,ERR2,IDHIHZ 
INTEGER*2  ISTAT, IBUFF ( 4 ) , I BFCNT , ICHAN, INSTAT ( 30 ) ,CALUV(4> 
INTE0ER*2  M0NTH(12),LEVEL(4),KLIPT(4),HATRIX<4,400) 
INTEGER*4  ITIHE 

DATA  lBUFF/4«0/,INSTAT/30*0/,CALUV/4*2S/ 

DATA  MONTH/31,28,31,30,31  , 30, 31 , 3 1 , 30 , 31  ,30 , 31 / 

DATA  LEVEL/4*0/,KLIPT/4*0/ 


LIMIT-4000 

NDAYS-0 

1TI8EC-0 

LOOK-O 

INTGR1-0 

INTGR2-0 

I8PEED-1 

IEP0KI-0 

NTIX-25 

IEPOCH-1 000 

ITIX— 25 

NTRIAL-1 

ID0-"0 

ID1 -“4000 

IB2-"44 

ID3-" 1 0000 

IDS- " 400 

N8ET-0 

KHZPCT-80 


!  Artifact  window  size!*  or  -> 
v 

!  Autonati c al 1 y  displayed  channel 


I  Skip  tingle-trial  display 
I  0  tec  between  epocha 
!  Sanple  every  2.3  nsec 
!  Epoch  laeting  1000  nsec 
I  Clock  overflow  every  2.5  nsec 
I  Total  N  trials 
I  Bit  pattern  during  ITI 
I  "  M  "  phase  1 


I  <i  ii  ••  5 

I  Initialize  counter  for  data  sets 
I  Initialize  X  of  connon  tones 


TYPE  8 

FORMAT < '  NAME  OF  SUBJECT  ISi  ' ,%) 

CALL  OETSTR ( 5, IDSUB J, 7, ERR  1 )  !  Input  up  to  7  letter*  of  nan* 

1F1ERR1 )  GOTO  4 

CALL  SCOPY<'DYiXXXXXX.DAT',FSTRNG>  I  Initialize  filenan* 


'ynsRS&z'&i  --.tamnc#*  mtpfeiftagt 


IV 


CALL  IDATE ( HON , IDAY , 1  YEAR )  !  Access  date  entered  upon  boot 

TYPE  12,H0N,IDAY,IYEAR 

F0RHAT('  IS  TODAY'  'S  DATE  l  '  ,  1 3 , ' /'  ,  13 ,  '/ '  ,  13 ,  '  (Y  or  N  )?•',♦ ) 
ACCEPT  t 4, YESNO 
FORHAT ( A 1 > 

IF ( YESNO  .EQ.  'V')  GOTO  22  !  If  date  OK,  proceed 

TYPE  20 

FORHAT < '  YOU  FORGOT  TO  ENTER  DATE;  START  ALL  OVER  ',/) 

GO  TO  832 

TYPE  24 

FORHAT (/,  '  ENTER  NEU  FILE  NAHE  (up  to  4  letters/nunbers )  i  ',♦> 
CALL  GETSTR(5,FSPEC,4,ERR2> 

IF ( ERR2 )  GOTO  22 
FSPEC(7>-0 

TYPE  24,(FSP£C(J),J-1,4) 

FORHAT (/,2X,6A1 , ' . DAT  WILL  BE  WRITTEN  ONTO  FLOPPY  DISK  '  > 

NCHS-4 
TYPE  38 

FORHAT (/,'  FOUR  CHANNELS  ARE  TO  BE  SAHPLED i  1,2,3,  and  4') 


IF ( MOD ( I  YEAR ,41  .EG.  0)  N0NTH(2>«29 
NYEAR-HOD( I YEAR, 10) 

DO  40  JH0N-1,H0N 
NDAYS-NDAYS+HONTH( JHON) 

CONTINUE 

NDAYS*NDAYS*IDAY-HONTH(HON> 


I  If  leap  yr,  Feb  has  29 
I  Which  year  of  the  decade? 


I  Which  day  of  the  year 


DO  44  H-1 , NDAYS+5 
RANNUH-F *N  ( INTGR1 , INTGR2 ) 
CONTINUE 


I  Start  RAN  subrtn  at  new  point 


*****e*****e*«e«OPEN  DATA  FILE  FOR  THIS  SESSION**********'*1****** 

CALL  INSERT (FSPEC,FSTRNG,4,4)  I  Open  session's  data  file 

OPEN ( UNIT-2, NAHE-FSTRNG, TYPE* 'NEW', FORK* 'UNFORHATTED' , DISPOSE-  SAVE  > 

•********e******e**e**««**RE8ET  PARAHETERS******************»***«*** 
NSET-NSET+1 

TYPE  52,KHIPCT,LIHIT,(L00K*1 > 

FORHAT < / , '  PARAHETER8  ARE  AS  FOLLOWS*',/,'  1 )  X  OF  COHHON  TONES 
9  •  ',14,/,'  21 ARTIFACT  LIHIT-  ♦  /-  ',14,/, 

9'  3 > CHANNEL  DISPLAYED  AT  END  OF  EACH  TRIAL-  ',12,/,  4) CAL  PULSESs'1 

DO  34  H-1,4 

TYPE  53,H,CALUV(H) 

F0RHAT(3X,'CH',I2,'i  ',15,'uM'l 
CONTINUE 

TYPE  35,(NTIX*40),IEP0K2,ISPEED,NSET 

FORHAT ( /, '  51EP0CH  DURATION  ■  ',15,'  nsec',/,'  4>Inter- 
9epoch  interval  ■  ',14,'  sec',/,'  7) SPEED< O-slow; 1 «f ast ) *  ',12, 

9/,'  81  «  OF  NEXT  DATA  SET  ■  ',141 
TYPE  34 

FORHAT < '  ENTER  NUHBER  OF  ITEH  TO  BE  CHANGED,  OR  0  IF  NONE  l  ',♦> 
ACCEPT  37,NPARAH 
FORHAT (12) 


80  TO  (90,58,81,84,87,75,78,81,86),  < NPARAH+ 1 ) 

TYPE  59 

FORMAT ( '  UHAT  X  OF  OCCURRENCE  <50<  X  <100)  FOR  COMMON  TONES  ?  ',»> 
ACCEPT  60,KH1PCT 
FORMAT (14) 

IF(KHIPCT  .LT.  50)  GOTO  58 
80  TO  51 

TYPE  82 

FORMAT < '  NEW  UINDOU  LIMIT-  ',*) 

ACCEPT  63, LIMIT 
FORMAT  < 18) 

60  TO  51 

TYPE  85 

FORMAT ( '  CHANNEL  TO  LOOK  AT  FIRST(1-4>  »  ',♦) 

ACCEPT  66.L00K 
FORMAT  < 12) 

LOOK-LOOK-1 
60  TO  51 

DO  89  J-1,4 
TYPE  88 , J,CALUV ( J ) 

FORMAT ( 3X ,  'CH  ",11,"  CAL-  ',15»'uV'> 

CONTINUE 
TYPE  70 

FORMAT (/,'  CHANGE  CAL  uV  VALUES  T  ' ,%) 

ACCEPT  71 fYESNO 
FORMAT ( A1 ) 

IF  ( YE8N0  .NE.  'Y'  )  GOTO  51 
TYPE  73 

FORMAT < '  ENTER  CHANNEL  8 1 THEN  NEU  uV  CALIBRATION, ».g.  3,75  i  ,«> 
ACCEPT  74,K,CALUV<K) 

FORMAT (12,14) 

60  TO  87 

TYPE  78 

FORMATI/,'  ENTER  NEU  EPOCH  DURATION  <«»*C)l  ',*) 

ACCEPT  77,IEP0CH 
FORMAT (15) 

NTIX-IEP0CH/<40) 

ITIX--1-NTIX 
00  TO  51 

TYPE  79 

FORMAT </, '  ENTER  NEU  INTER-EPOCH  INTERVAL  <««c)i  ',♦> 

ACCEPT  80,1EP0KI 
FORMAT (18) 

00  TO  51 


TYPE  82 

FORMAT </, '  Entor  "1"  for  foot,  or  “0"  fe 
ACCEPT  84.I8PEED 
FORMAT! 12) 

60  TO  51 


3 do i  ',♦) 


-vv 


66 

0? 


TYPE  87 

FORMAT ( / , '  UHAT  IS  THE  8  FOR  THE  NEXT  SET  OF  AVERAGES?  ',*! 

ACCEPT  88, NSET 
88  FORMAT (14) 

60  TO  SI 

90  TYPE  91 

91  FORMAT <  / , '  MAKE  HIGHER-PITCHED  TONE  COMMON(C)  OR  RARE <R ) ?  :  ',*) 

ACCEPT  92, IDHIHZ  !  Identify  C  or  R  for  high-pitch  tone 

92  FORMAT ( A 1 ) 


IEPQCH«40*NTIX 

NCTONE-O 

NRTONE-O 

NRSAHP-0 

HICNT-0 

LOCNT-O 

ITRIAL-0 


I  Reentry  point  efter  setting  perimeters 
I  8  of  common  tones  presented 
I  8  of  rere  tones  presented 
!  8  of  rare  sanpies  needed 
I  Zero  out  common  sample  size 
I  Zero  out  rare  sample  size 
I  Counter  for  8  of  trial 


94 


95 


96 

97 

98 

99 


! 


Zero  out 
Zero  out 
Zero  out 


DO  94  1-1,4 
LEVEL  < I ) -0 
CONTINUE 
DO  96  L-1,400 
DO  95  K-1,4 
MATR I X ( K , L ) -0 
HISUM(K,L!-0 
LOSUM  <  K , L ) -0 
CONTINUE 
YVAL  <  L ) -0 
XVAL(L)*2*L+150 
CONTINUE 
ITIX--1 *NTIX 
TYPE  98 

FORMAT*/,'  HOU  MANY  TRIALS  T 
ACCEPT  99,NTRI AL 
FORMAT ( 13) 

NRSAHP«NTRIAL-<NTRIAL*KHIPCT1/100 
PAUSE  'HIT  RETURN  TO  60' 


I  Estimator  of  waveforn  DC  level 


single-trial  matrix 
common  summing  matrix 
rare  summing  matrix 


Zero  out  display  matrix 
Initialize  abscissa  values 

Update  8  ticks  before  clock  overflow 

(e.g.,  35>i  ',*) 


CALL  DEVICE1-1 , IDO, M 1 64000 >  I  Turn  off  all  devices 

CALL  IPOKEC 170420,  "01  I  Turn  off  clock 


C 

108 


128 


EACH  TRIAL  BEGINS  HERE****************** 


IF ( LOCNT  . 6E.  NRSAMP)  GOTO  382 
ITRIAL-ITRIAL+1 
RANNUN-RAN* INT6R1 , INTGR2! 
CUTOFF-FLOAT (KHIPCT 1/100. 

IF < RANNUH  .GT.  CUTOFF!  GO  TO  128 
CALL  SCOPY< 'CONN', TONE! 
NCT0NE-NCT0NE+1 
IF ( IDHIHZ  .EQ.  'R!  GOTO  140 
00  TO  136 

CALL  8C0PY ( 'RARE' ,T0NE! 
NRT0NE-NRT0NE+1 
IF ( IDHIHZ  .EQ.  'R'!  GOTO  136 
GO  TO  140 


I  Already  have  enough  8  sanpies? 

I  Set  next  trial  8 

I  If  true,  R  tone  next 
I  Count  8  of  common  tones  presented 

I  Count  8  of  rare  tones  presented 


B-19 


136  ID4*"20002 

GO  TO  144 

140  ID4  =  " 1 0001 0 

144  TYPE  148, ITRZAL, TONE 

148  FORMAT </ , '  Trial  , 13,'  i  ',4A1> 

C  HERE,  INITIALIZE  OTHER  STARTING  VALUES 

JDATUM*0  !  Reset  pointer  for  storing  data 

ISYN0T«0  I  Initialize  reject  reason  code 

IF < IEPOKI  .EQ.  0)  GOTO  18S 

IF ( ITRIAL  .EQ.  1)  GOTO  180 
160  CALL  GTIM(ITIHE) 

CALL  CVTTIMUTIME,IHRS,ININ,ISEC,ITCK> 

ITISEC*(3600*IHRS)+(60*IMIN)+(ISEC>-NOU  >  Sec  since  last  epoch 
IF ( IT I8EC  .LE.  IEPOKI)  GOTO  160 

180  NOM-O 

185  CALL  DEVICE<-1 ,101  ,  "164000)  !  Turn  on  phase  Ml  indicator  light 

C  **•**•*•*•* CLOCK  MILL  RUN  AT  10  KHz,  OVERFLOW  EACH  1  MSEC**«********» 

C  •••♦♦•CLOCK  INTERRUPT  UILL  ONLY  BE  USED  TO  UPDATE  MSNEU  AND  ISI****** 

CALL  CLOCKUd,  3,  ITIX,,  MATCH,  "170420,  "440>  !  Start  clock 

214  IF < JDATUM  .LT.  1)  GOTO  214  I  Begin  CAL  trigger  pulse  ? 

CALL  DEVICE <-1,102,“ 164000)  I  CAL  pulse  ON 

218  IF( JDATUM  .LT.  25)  GOTO  218  I  End  CAL  trigger  pulse  ? 

CALL  DEVICE<-1 , ID3, “ 1 64000 )  !  CAL  pulse  OFF 

222  IF ( JDATUM  .LT.  100)  GOTO  222  !  Begin  tone  ? 

CALL  DEVICE <-1 , ID4 , " 1 64000 )  !  Tone  ON 

226  IF (JDATUM  .LT.  ISO)  GOTO  226  !  End  tone  T 

CALL  DEVICE<-1,ID5, "164000)  I  Tone  OFF 

230  IF ( JDATUM  .LT.  400)  GOTO  230  !  End  trial;  Stop  sampling  T 

CALL  IPOKE<" 170420, "0)  !  Turn  off  clock  between  epochs 
CALL  DEVICE1-1 , IDO, "1 64000)  I  Turn  off  all  devices 

IF (IEPOKI  .EO.  0)  GOTO  300 
CALL  GTIM(ITIHE) 

CALL  CVTTIM(ITIME,1HRS,1HIN,ISEC,ITCK) 

ITI SEC«< 3600*1 HR S ) +(60*IMIN)+(ISEC> 


NOU'ITISEC  I  Store  tine  at  end  of  thi*  trial 

C  •••••••••••••BEGIN  INTER-TRIAL  INTERVAL  ACTIVITIES!*************** 

C  •••••••••••••••••••REVIEU  DATA  FOR  ARTIFACTS**************** ****** 


300  CALL  UINDOUtMATRIX, LIMIT, LEVEL, KLIPT) 

TYPE  310,<LEVEL<N),N*1  ,4) 

310  FORMATI/,'  DC  LEVELS i ' , 3X , 1 4 , 1  OX , 14 , 1  OX , 14 , 1 0X, 14 > 
DO  320  1*1,4 

IF (KLIPT < I )  .GT.  5)  ISYNOT-4 
CONTINUE 

IF < ISYNOT  .EQ.  4)  GOTO  370 


320 


I  More  than  5  artifacts? 


328 


IF<SCONP('RARE',TONE>  .EQ.  0)  GOTO  348  !  If  R  trial, update  LOSUH 

80  340  L-1,4 
00  332  N- 1,400 

HISUM(L,N)-H1SUH(L,N)+HATRIX(L,N)  I  Night  nerd  to  convert 

332  CONTINUE  !  intoger-to-real 

340  CONTINUE 

344  HICNT-HICNT+I .0 

60  TO  380 


348  00  336  L-1,4 

DO  352  N-1 ,400 

LOSUM(L,N)-LOSUH<L,N)+HATRIX(L,N)  !  Might  need  to  convert 

332  CONTINUE  !  i ntoger-to-roa 1 

336  CONTINUE 

360  L0CNT-L0CNT+1 .0 

GO  TO  380 


370  DO  374  1-1,4 

DO  372  J-1,400 

MATRIX! I , J)-HATRIX< I , J)  I  Keep  tin*  between  ton**  equal 

372  CONTINUE  I  to  when  data  are  added  to  average 

374  CONTINUE 

TYPE  376 

376  PORHAT </ , '  TOO  MANY  ARTIFACTS;  DATA  NOT  ADDED  TO  AVERAGE' > 

380  TYPE  381 , IFIX !HICNT ), IFIX ! LOCNT > 

381  FORMAT t '  SO  FARi  C  »',I4,5X,'R  -',14) 

IF ( 1SPEED  .EQ.  0)  GOTO  395 

I  CHAR” ITT INR ( )  .  !  Laot  ASCII  character  entered  on  TT 

IF < 1CHAR  .GT.  -100)  GOTO  382  I  If  LETTER  there,  then  quit  speednode 
IF (LOCNT  .LT.  NRSAHP)  GOTO  108  t  Not  enough  rare  tone  sanple*  ? 

382  TYPE  383,NCT0NE,NRT0NE,IFIX(HICNT),IFIX(L0CNT) 

383  FORMAT </, '  8  Presented  i  C-',I4,5X,';  R»',I4,/, 

7'  8  Averaged  I  C-',I4,5X,';  R-',I4> 

TYPE  385 

385  FORMAT </ , '  HOU  MANY  MORE  TRIALS  T  (0  if  averages  final)  t  ',«) 

ACCEPT  387 ,NM0RE 

387  FORMAT  < 13) 

NTRIAL-NTRIAL+NNORE  !  Set  new  nax  8  of  trials 

NRSAHP -<NTRIAL*KH1PCT)/100  I  Adjust  rare-sanple  size  criterion 

IF (NHORE  .GT.  0)  GOTO  448  I  Continue  with  current  averages 

TYPE  388 

388  FORMAT!/,'  PUT  CURRENT  AVERAGES  ON  FLOPPY?  ',*) 

ACCEPT  389, YESNO 

389  FORMAT  <  A 1 > 

IF<  YESNO  .EO.  'Y')  GOTO  670 
TYPE  390 

390  FORMAT!/,'  DEGIN  NEU  SET  OF  AVERAGES  T  ',*> 

ACCEPT  391, YESNO 
FORMAT (A1 ) 

IF < YESNO  .EQ.  'Y'>  GOTO  50 
GO  TO  448 


391 


IDCH-LOOK 
DO  404  N-1,400 

YVAL!N)-MATRIX! IDCH+1 ,N>+3?0. 

CONTINUE 

CALL  GINIT(t)  I  Set  default  piranittn 

CALL  SEND  I  Go  to  transparent  node 

CALL  STXOX 

CALL  STQTU<7>  !  Graphic  output  on  console 

CALL  STERR!2)  !  Print  error  and  warning  Messages 

TYPE  412 

FORHAT ( 25 ( / ) )  1  Clear  screen 

DO  414  N-1,400 

CALL  POINT(XVAL!H),YVAL!M))  I  Plot  values 

CONTINUE 

CALL  GEND  I  Go  to  transparent  node 

CALL  HOLD  !  Wait  for  carriage  return 


I  Plot  values 


CALL  ERASE  I  Clear  sere 
CALL  GEND  !  Go  to  tran 
IF ( SCONP ! 'DS' , TASK )  .EG.  0)  GOTO  444 
IF!SCOMP!'DA',TASK)  .EQ.  0)  GOTO  4 76 


)  Clear  screen 
i  Qo  to  transparent  node 


TYPE  450 

FORMAT!/,'  HIT  RETURN  FOR  NEXT  TRIAL,  QR«  > 

TYPE  452 

FORMAT!'  PICK  FROM  MENU  :  T? ,QT , EX , NT ,NU ,DS , DA ,LP ,UD,PL ) 
ACCEPT  454,  TASK ! 1 ) , TASK ! 2 ) 

FORMAT !2A1 ) 


TASK) 

.EQ. 

0) 

GOTO 

458 

!  Display  Menu 

TASK) 

.EQ. 

0) 

GOTO 

454 

1  Quit  session 

TASK) 

.EQ. 

0) 

GOTO 

440 

1  Exit  session 

TA8K ) 

.EQ. 

0) 

GOTO 

382 

t  Trial  N  status 

TASK) 

.EQ. 

0) 

GOTO 

50 

1  Degin  nee  set 

TASK) 

.EQ. 

0) 

GOTO 

444 

1  Display  data 

TASK) 

.EQ. 

0) 

GOTO 

474 

!  Display  average 

TASK) 

.EQ. 

0) 

GOTO 

400 

1  List  paraneters 

TASK) 

.EQ. 

0) 

GOTO 

470 

f  Write  data  to  di*k 

TASK) 

.EQ. 

0) 

GOTO 

448 

1  Plot  data 

GO  TO  108 
TYPE  440 

FORMAT!'  MENU  IS  AS  FOLLOWS!  77— EXPLAIN  MENU  ,/ ,23X ,  '  OT  —  - 
7  QUIT  SESSION  !DELETE  DATAFILES)', /,23X,  'EX— EXIT  FROM  SESSION 
7  ! SAVE  DATAFILES)', /,23X, 'ST  — 8  EACH  TONE  TYPE  SO  FAR  ,/,23X, 
7'NU- — START  NEU  DATA  SET', /,23X,'DS  — DISPLAY  SINGLE  TRIAL  DATA', 
7/,23X, 'DA— DISPLAY  AVERAGES'  ,/,  23X ,  'LP  — LIST  PARAMETERS  ,/,23X, 

7'WD— WRITE  DATA  TO  DISK',/,23X,  'PL - PLOT  DATA') 

GO  TO  448 

TYPE  448 

FORMAT!'  VIEW  DATA  FROM  WHICH  CHANNEL  !1-4>  7  ',♦> 

ACCEPT  472, IDCH 
FORHAT ! 13) 

IDCH-IDCH-1 

IF i IDCH  .LT.  0  .OR.  IDCH  .GT.  3)  GOTO  448 
GO  TO  400 


474 

480 


TYPE  480 

FORMAT < '  C  OR  R  T  UHXCH  CHANNEL  N  ?  !o.f.  C2  or  C3  or  R1 > " ,* > 

ACCEPT  484, TYPE, NUMCH 
484  FORMAT  < A1  , 1 1  ) 

IF (TYPE.NE. 'C'  .AND.  TYPE .NE . '8' )  GOTO  448 
IF (NUMCH.LT . 1  .OR.  NUMCH. 8T. 4)  GOTO  476 
IF (TYPE  .EQ.  'R'>  GOTO  492 
00  488  K*1 ,400 

YVAL!K)*HI8UN<NUHCH,K>/HICNT+390.  I  Dioploy  C  avorog* 

488  CONTINUE 

80  TO  408 

492  DO  496  K-1 ,400 

YVAL!K)*LOSUH!NUMCH,K)/LOCNT +390 .  !  Dioploy  R  avoraf* 

496  CONTINUE 

80  TO  408 

400  TYPE  602, KHIPCT, LIMIT, (LOOK+1 ) 

602  FORHAT!/,'  PARAMETERS  ARE  AS  FOLLOUSi ',/,'  ' >  X  OF  C  TONES*  ,14, 

9/,'  2)  ARTIFACT  LIMIT*  ♦/-  ',16,/,'  3)  CHANNEL  DISPLAYED  AT  END 
9  OF  EACH  TRIAL-  ',12,/,'  4)  CAL  PULSEBl') 

DO  606  N-1,4 
TYPE  604,M,CALUV!M) 

604  FORMAT  <3X,'CH',I2,'l',IS,'uV') 

606  CONTINUE 

TYPE  608,<NTIX*40),IEP0K1,I8PEED 

605  FORMAT 1  /, '  S)  EPOCH  DURATION*  ',15,'  oooc',/,'  6)  INTER-EPOCH 

9  INTERVAL  »  ',16,'  ooc',/,'  7)  SPEED  (O-tlow; 1 -foot >  «  ,12) 

TYPE  61 0, IDH1HZ 

610  FORMAT!/,'  THE  HIGHER-PITCH  TONE  IS  THE  ',61,'  TONE') 

GO  TO  448 

648  TYPE  652 

652  FORMAT!'  THIS  OPTION  NOT  YET  AVAIL6DLE  ',/) 

GO  TO  448 

656  CALL  IP0KE!M1 70420, "0)  !  Shut  off  clock 

CLOSE ! UNI T*2,DZSP0SE*' DELETE')  I  Doloto r  datafil*  fro a  DYdiok 

60  TO  832 

660  TYPE  644 

664  FORMAT!'  OK  TO  END  THIS  8ES8I0N  !Y  or  N)i  T',*> 

ACCEPT  668, VE8N0 
668  FORMAT ! A1 > 

IF ! YESNO  .NE.  'Y'>  GOTO  448 

CALL  XPOKE!W170420,"0>  I  Shut  off  clock 

GO  TO  828 

C  ••••••••••••GENERATE  LABELS  FOR  CURRENT  DATA  SET***********-**** 

670  INBTAT!1  )-300  I  This  u*i  •  P300  mtion 

IN8TAT !2)*H0N 
IN8TAT !3)*IDAY 
INST AT!4)*I YEAR 
DO  672  J-1,4 
IN8TAT!J*4)*FSPEC!J) 

CONTINUE 


672 


673 


DO  67 3  H«1,5 
INSTAT (H+10)*IDSU8J(M) 
CONTINUE 
00  675  K-1 ,4 
INST AT (K+15)*CALUV(K) 
675  CONTINUE 

INSTAT(20)-NICNT 
1NSTAT (21 )*LOCNT 
INST AT ( 22 )-N TRIAL 
INSTAT (23)»NCT0NE 
INSTAT(24)-NRT0NE 
INSTAT (25) -NSET 
INSTAT (26>-LlNIT 
INSTAT ( 27 >-NTRIAL-IFIX 
INSTAT  < 26) >NT IX 
INSTAT ( 29 )-IEPOKI 
INSTAT (30)-NCHS 


I  Connon  ton*  sanpl*  fix* 

I  Rar*  ton*  sanpl*  six* 

I  Total  N  of  trials 
I  Total  N  connon  ton*  trials 
I  Total  8  rar*  ton*  trials 
I  Which  8  sot  of  averages  is  this? 
I  Artifact  window  six* 

HICNT+LOCNT)  I  8  r*j*cts 

1  T*nths  of  ns*c  p*r  sanpl* 

I  Int*r-*poch  interval 
I  I  of  sanpled  channels 


D  00  TO  800 

756  PRINT  760 

760  FORNAT ( 3 ( / ) ) 

CALL  PUT8TR( 6, ID8UDJ, '  ') 

PRINT  764, (INSTAT(I), 1-1,4) 

764  FORMAT!/,'  P' , 13, 5X,  'Datei  '  ,13,  '/'  ,  1-5 , '/'  ,  13 ) 

PRINT  76B,INSTAT(23),IN8TAT(24) 

768  FORNAT (/,'  8  of  common  tones*', 13,'  ;  •  of  rar*  tones*', 13) 

PRINT  772,INSTAT(2B),IN8TAT(29) 

772  FORNAT (/,'  Tenths  of  NS*c  p*r  sanpl* (ns)*' , 15,/, '  ;  Inter-epoch 
9  interval  (sac)  ■  ',16) 

PRINT  776, INSTAT (26) 

776  FORMAT (/, '  Artifact  Unit*  ♦/-',I6,/,/,'  Sanpled  the  first  four 

9  channels  only') 

PRINT  780, INSTAT ( 20) , INSTAT ( 21 > 

780  FORNAT (/,'  Sanpl*  six*  for  C  average*', 13,'  ;  for  R  average*' , 13) 
PRINT  784, INSTAT (22) 

784  F0RMAT(/,'  Total  «  trials-', 13) 

PRINT  788, INSTAT (27) 

788  F0RHAT(/,'  Total  8  rejects  due  to  artifacts-' ,13) 

PRINT  796, INSTAT (16),INSTAT(I7),IN8TAT(18), INSTAT (19) 

796  F0RHAT(/,'  For  each  channel,  CAL  signal  anplitud*  *', 

9/,6X,'Chan  1 ' ,6X , 'Chan  2',6X,'Chan  3',6X,'Chan  4',/,4(6X, 16) ) 
PRINT  798, INSTAT (25) 

798  FORMAT (/, '  THAT  WAS  THE  8', 14,'  SET  OF  AVERA6ES' ) 


C  a**************** write  DATA  RECORD  TO  DY  F I LE*******-**+- ••**•** 

800  WRITE  (2)  (IN8TAT(H),M-1 ,30) 

DO  816  1-1,4 
DO  812  J-1,400 

YVAL( J)-HISUN( I , J)/HICNT  I  Divide  sun  hy  sanpl*  size 

812  CONTINUE 

WRITE  (2)  ( YVAL(N) ,N*1 ,400) 

816  CONTINUE 
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I  Divide  tun  by  simple  size 


DO  824  K-1,4 
DO  820  L-1,400 
YVAL<L)"LOSUM(K,L)/LOCNT 
820  CONTINUE 

UNITE  <2>  < YVAL(N) ,N>1 ,400) 

824  CONTINUE 

TYPE  825 

825  FORMAT ( /  ,  '  DEGIN  NEU  SET  OF  AVERAGES  T  ",*> 

ACCEPT  826 , YESNO 

826  FORNAT ( A 1 ) 

IF  <  YESNO  .NE.  'Y')  OOTO  448 

00  TO  SO  I  Go  (tort  next  sot  of  averages 

828  CLOSE  (UN  IT"  2,  DISPOSE  ■'SAVE1' )  I  End  this  session 

832  CALL  EXIT 

END 

SUDROUTINE  MATCH 

CONNON  /BLOCK 1 /MATRIX, JDATUM, IBUFF 
INTE0ER*2  MATRIX ( 4, 400 ) , I DUFF (4 > 

CALL  AREADP(ISTAT,IBUFF,4,-3> 

CALL  EXTS12<IBUFF,4) 

JDATUM" JDATUM* I 

MATRIX (1 , JDATUM )"1BUFF< 1 ) 

HATRIX(2,JDATUH)"IBUFF<2> 

MATRIX  < 3,JDATUH)"IBUFF<3) 

MATRIX < 4, JDATUN)-IBUFF<4> 

CALL  I POKE ("170420, "133)  I  Clear  overflow  flag 

RETURN 

END 

SUBROUTINE  UINDOUt MATRIX, LIMIT, LEVEL, KLIPT) 

INTEGERS  MATRIX ( 4, 400), LIMIT, LEVEL (4), KLIPT < 4) 

DO  844  L"1 ,4 

KLIPT (L>"0  I  Reset  artifact  counter 

LEVEL(4>"0  I  Reset  DC  level  estimator 

DO  840  H-1,400 

IF ( IAB8(MATRIX(L, M ) )  .OT.  LIMIT)  KLIPT ( L)"KLIPT (L ) *1 
LEVEL(L)«LEVEL<L)*HATRIX<L,N> 

840  CONTINUE 

LEVEL (L) "LEVEL (D/400  I  Calculate  mean  integer  value 
844  CONTINUE 

848  RETURN 

END 
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PROSRAH  PLTCNV 

PLTCNV  EMPLOYS  VERTICAL  CURSOR  ONLY 
Y  VALUES  ARE  FROM  ORIGINAL  DATA,  NOT  INTERPOLATE! 

EXTERNAL  NATCH 
COMMON  /DL0CK1 / JDATUH 
VIRTUAL  USAV0<8,400) ,08AV6<S, 400> 

REAL  RL8TAT <  14) , USAVO , DSAVO , U8CNT , DSCNT , PARAN ( 4 > 

REAL  XT ABL <  1 0 >  ,  YT A8L <  1 0 )  , XV AL < 400 )  ,  Y VAL <  400  > 

LOOICAL«1  YE8N0 , TYPE, ICHAR,FSTRNG( 1 4 ) ,LFILE<6) ,LABELX< 13) ,LABELY(1 0> 
L00ICAL*1  STROFF  (4) ,STR0N<4> 

INTE0ER*2  INST AT <30) ,LCH(8> , NUHCH 
DATA  RL8TAT/14*0.0/, INSTAT/30*0/ 

CALL  SCOPY<'Hillleeconde',LAB£LX>  I  Abecieoa  label 

CALL  8C0PY <  ‘'Microvolti' , LABEL Y>  I  Ordinate  label 
CALL  8C0PY<'DViHIXXXX.DAT',FSTRNB>  I  Initialize  filenane 

STROFF ( I )»“033 
STROFF  <2)*"057 
8TROFFO)*“OA1 
STR0FF<4)»"144 
STR0N(1 )""033 
8TR0N<2>*"037 
STRONO)*“OAO 
STR0N<4)«*t44 

1  TYPE  S 

3  FORMAT ( *  Enter  4-character  file  code,  e.g.  "NI05531'  i  ' ,t) 

ACCEPT  10,<LFILE<N),N-1 ,A) 

10  FORMAT ( AA1 ) 

CALL  INSERT <LFILE,FSTRNB, 4,6) 

DO  20  L-1,400 
DO  13  N*1 ,8 
U8AV0<K,L)>0 
DSAV0<K,L)-0 
IS  CONTINUE 

YVAL<L)-0 
XVAL(L)>0 
20  CONTINUE 

PARAMO  )>4A0. 

PARAM(2>-0. 

PARAMO  )>0. 

PARAN<4)>300. 

PARAMO)— 300. 

PARAM(4>— 300. 

HNFLO-1 

OPEN <UNIT*2,NAME*F8TRN0, FORM* 'UNFORMATTED' , TYPE*' OLD'  ,DIBP0BE*'8AVE'  ) 

READ  (2)  <  INSTATIN)  ,M*1 ,30)  ,  (RLSTATIN)  ,N*t , 1 4) 

NCHS"IN8TAT<12> 

DO  33  K*1,0 
LCH(K)*IN8TAT(K+12) 

33  CONTINUE 


I  Zero  out  US  average  natrix 
I  Zero  out  D8  average  natrix 

I  Zero  out  dioplay  natrix 


I  XMAX 
I  XMIN 
I  YORDLO 
I  YHAX 
I  YMIN 
I  X0RDLO 
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JL-  V-L'J  ’J,?  f  »  T»_?  -J.  T.’y  77  ?.■?.  -?  -?■?  -y  w  ?  V  v  -..  -.-  -?  -..  v 


DO  45  I-1.NCHS 

READ  <2>  !YVAL!N),N-1 ,400) 

DO  40  J-1,400 
USAVG!LCH!I),J)»YVAL!J> 

40  CONTINUE 

45  CONTINUE 

DO  40  K-1,NCHS 

READ  <2)  !YVAL!N),N-1 ,400) 

DO  55  L-1,400 
DSAVG!LCH!K),L)-YVAL!l) 

55  CONTINUE 

40  CONTINUE 

USCNT-1NSTAT!21  > 

D8CNT-INSTATI22) 

TYPE  43 

43  FORMAT !  / , '  Print  out  oeosion  info  ♦  stato  T  Y  or  N  i  '  ,0 ) 

ACCEPT  45, YE8N0 
45  FORMAT  < A1 ) 

IF < YE8N0  . NE.  'Y')  GOTO  145 

PRINT  70,(IN8TAT<1),I-1 ,4) 

70  FORMAT !/, '  Monkey  8'  ,  15, 5X, 'Datei ' , 13, '/' , 1 3 , '/' , 13 ) 

PRINT  75,<INSTAT<J),J-S,7> 

75  FORMAT!/,'  Condition  «',I2,'  ;  Day  D',I3,'  ;  I  U8  triala-',I3) 

PRINT  80,!INSTAT!K),K-8,10) 

80  FORMAT!/,'  United  hold! no)*' , 15, /, '  Intor-otinuluo  laterval!no)-', 

915,/, '  IS  duration!no)-',I4> 

PRINT  85,  !  INST  AT  !L.),L.-11,  !  INST  AT  !12>+12)) 

85  FORMAT!/,'  Artifact  Unit-  ♦/-' , 14,/,/, '  Sanplod  tho  fol losing' , 12, 

9'  channel oi ' , 8! 1 X,  12 > ) 

PRINT  90,INSTAT!21 >, INST AT! 22) 

90  FORMAT!/,'  Sanple  oize  for  US  average-' , 13, '  ;  for  D8  average-' , 13) 

PRINT  V5,IN8TAT!23),INSTAT!24) 

95  FORMAT!/,'  Total  «  trialo-' , 13,/,'  8  of  US  trialo>',I3) 

PRINT  100,!IN8TAT!H) , N>25,28) 

100  FORMAT!/,'  8  aborto  due  to  olou  RT-',I3,/,'  8  aborto  due  to  prenature 
9  bar-preooing-' ,  13, /, '  8  aborto  due  to  E  opting  to  abort-' ,13,/, 

9'  8  rejecto  due  to  artifacto-' ,13) 

PRINT  105,INSTAT ! 29), INST AT! 30) 

105  FORMAT!/,'  Total  8  bar-preooeo-' , IS , /, '  All  bar-preooeo  during 
9  ITIo-' ,15) 

PRINT  110,RL8TAT!1),RLSTAT!2) 

110  FORMAT!/,'  X  US  trialo  aborted-' ,F4 .0,/, '  X  of  US  trials  rejected 
9  due  to  artifacto-', F4.0) 

PRINT  120,RLSTAT!3) , RLSTAT !4> 

120  FORMAT!/,'  Mean  RT!no)  for  "ok"  US  trialo-', F7. 1 ,/, 

9'  Standard  deviation  for  theoe  RTo-',F10.4) 

PRINT  1 25, RLSTAT !S> , RLSTAT ! 4) 

125  FORMAT!/,'  For  ok  US  trialo, nean  8  relnforcenont*-',F>4.3,/, 

9'  For  ok  D8  trialo, noan  8  bar-preooeo! in  phaoeo  4*7)-', F4. 3) 

PRINT  130,!RL6TAT!K) , K-7,14) 

130  FORMAT!/,'  For  artifact-rejected  US  trials, nean  8  deviant  pointsi', 
9/,2X,'Chan  1',2X,'Chan  2',2X,'Chan  X',2X,'Chan  4',2X,'Chan  S', 

92X, 'Chan  4',2X,'Chan  7',2X,'Chan  8' , / ,8! 2X.F4.3 ) ) 
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yu\- 

* 


PRINT  140 
FORMAT !5!/> ) 

TTPE  ISO 

FORMAT < '  Display  US  or  D8  T  Channol  #  T  !*.g.  U4  or  U8  or  D1 )  ',*> 
ACCEPT  140, TYPE, NUMCH 
FORMAT  <A1 ,11 > 

IF  (TYPE  • NE . 'U'  .AND.  TYPE.NE.'D')  GOTO  145 
1F< NUMCH.LT . 1  .OR.  NUMCH. GT .0)  GOTO  145 
IF (TYPE  .EQ.  'D'J  GOTO  175 

DO  170  K«1,400 

YVAL <K)*USAV6< NUMCH, K) 

XVAL<K)-K 
CONTINUE 
GO  TO  185 

DO  ISO  K-1,400 
YVALiK>-DSAV6! NUMCH, K) 

XVAL1K )aK 
CONTINUE 

TYPE  190, ( PAR AM (L),L»1,4> 

FORMAT (/, '  Display  paranatsrs  ar*i',/,5X, '1 >XKAX»  ',F9.2,/,5X, 
7'2>XMIN«  ',F9.2,/,SX,'3)Y8RDI.O-  ' ,F9 .2 , / ,5X, '4 > YMAX-  ' ,F9.2, / , 5X , 
7'5> YMIN*  ' ,  F9.2,/,5X, '6)XGRDL0«  ',F9.2> 

TYPE  202 

FORMAT!/,'  Chang*  display  paranstars  9  Y  or  N  i  ',*> 

ACCEPT  203, YE8N0 
FORMAT (A1 ) 

IF < YESNO  .ME.  'Y'»  GOTO  210 
TYPE  207 

FORMAT!/, '  Enter  paran*t*r  #  and  new  value,  *.9-  "6,5385. 7"i  ',♦> 
ACCEPT  209,NPAR,REVALU 
FORMAT !I2,F9.2> 

PARAM!NPAR)>REVALU 
GO  TO  185 

DO  213  L«1,10 
XTADL!L>"0 
YTADL!L)-0 
CONTINUE 
XHAX-PARAMH  > 

XMIN«PARAM!2) 

Y8RDL0«PARAM(3) 

YMAX*PARAM!4> 

YMIN-PARAM!5> 

XGRDL0»PARAM!4) 

YZERO-O. 


TYPE  214 

FORMAT!/,'  "2"  to  xaro  basalina,  Ms  to  seor*  points,  "Q" 
PAUSE  'HIT  RETURN' 

TYPE  215 
P0RNAT125!/) ) 


to  quit') 


« 


« 


220 


225 

227 

230 


230 

235 


270 

275 


CALL  BELL(1  ) 

CALL  ERASE 

CALL  GRID (LABELX,XHAX,XHIN,YGRDLO, LABEL Y , YHAX, YMIN ,X6RDL0 , NMFLG > 
CALL  POINT(400,XVAL,YVAL) 

CALL  MTEXT < 'X  data' , 305 ., YNAX ) 

CALL  HTEXT (  '  Y  data' ,305. , -1 0. ) 

CALL  BELLO) 

CALL  VCURSR(ICHAR,XCOQR,YCOOR> 

IF < ICHAR  .EG.  'Q'>  GOTO  270 
IFdCHAR  .EG.  'E')  GOTO  230 
IF ( ICHAR  .NE.  'Z')  GOTO  225 
YZER0-YC00R 
GO  TO  220 

DECODE  ( 1 ,227, ICHAR)  NDATUN 
FORMAT  <11  ) 

IF ( NDATUM  .EG.  0)  NDATUM-10 

XC00R»AINT(XC00R+0.5)  I  Reconstruct  oriainal  x  value 

NPOS-IFIX(XCOOR) 

CALL  POINTO ,XVAL(NPOS> ,YVAL(NPOS) )  !  Intensify  scored  point 

XTABL( NDATUM )-XC00R  !  Enter  x  value  into  table 

XP0S-XC00R-3.  I  Where  to  affix  tag 

CALL  PLTSYHO ,XP0S, 150., ICHAR)  I  Hark  tag  up  top 
VERT1-150.-10.-FL0AT1 NDATUM ) 

VERT2  — 20.-1 0. -FLOAT ( NDATUN) 

CALL  HTEXT < I CHAR, 405. , VERT1  ) 

CALL  FLTXT(XTA8L< NDATUM ) (425 . , VERT1 )  !  Display  X  table  entry 

YTABL ( NDATUM )-YVAL(NP0S)-YZER0  I  Non-interpoleted  y  value 
CALL  HTEXT( ICHAR, 405., VERT2) 

YDISP-AINT (YTABL (NDATUM)* 100.)/1 00. 

CALL  FLTXT(YDI8P,315. ,VERT2>  )  Display  Y  table  entry 
GO  TO  220 

CALL  VCUR8R( JCHAR,XNEU, YNEU) 

DECODE  (1 ,235,JCHAR)  NDATUM 
FORMAT  <11 ) 

IF ( NDATUM  .EQ.  0)  NDATUM-10 

CALL  MVCUR(XTABL<NDATUM), YTABLt NDATUM)) 

XPOS-XTABL (NDATUM ) -3 . 

YDISP-AINT (YTABL (NDATUM )*1 00.  )/1 00. 

VERT  1-1  SO. -10. -FLOAT (NDATUM) 

VERT2— 20. -10. -FLOAT (NDATUN) 

CALL  PUT8TR(7,STR0FF,'  ')  I  Bata  level  »  1 

CALL  PLT8YM(1,XP08,150.,JCHAR) 

CALL  FLTXT (XTABL( NDATUM) ,425. , VERT 1 > 

CALL  FLTXT(YDISP,315.,V£RT2) 

CALL  PUT8TR(7,8TR0N, *  ')  I  Bata  level  -  0 

ICHAR-JCHAR 

XCOOR-XNEU 

YCOOR-YNEU 

00  TO  230  I  Go  enter  neu  values 

CALL  ERASE 

IF(ITT0UR("030)  .NE.  0)  GO  TO  275  I  Enter  transparent  nod* 


TYPE  280 

280  FORMAT (/, 12X, 'Datuit  B',BX,'X-coordin*t*',DXr'Y-eoordinat*'> 

DO  290  M-1,10  I  REPLACE  NDATUN 

TYPE  285,M,XTABL(M) , YTABL(M) 

2BS  FORMAT (12X,I3,10X,F10.3,10X,F10.3> 

290  CONTINUE 


a 
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TYPE  295 

FORMATI/,'  Now  plot  data  T  i  ' ,*> 

ACCEPT  299, YESNO 
FORMAT  <  A1 > 

IF ( YE8N0  .NE.  'Y">  GOTO  399 
TYPE  305 

FORMAT (/,'  ENTER  GAIN  AND  OFFSET  INTEGERS  i  ',«> 
ACCEPT  310,IGAIN,ILEVEL 
FORMAT  < 15 , 15 ) 

JOLD-O 

JDATUH-0 

INIVAL»<YVAL<1 ) *IGAI N > - < ILEVEL* IOAIN >+2047 
CALL  DA0UTP<1,INIVAL, “170440) 

PAUSE  "SET  PLOTTER;  HIT  RTN' 

IPEN-1 

CALL  DEVICE (-1 , I PEN, ”144000) 

CALL  CLOCKUd , 3 , -500 , .MATCH, » 170420, "440 > 

IF ( JDATUH  .LE.  JOLD)  GOTO  315 
JOLD-JDATUM 

IF ( JDATUH  .NE.  2)  OOTO  317 
IPEN-0 

CALL  DEVICE<-1,IPEN, ”144000) 

IF ( JDATUH  .GT.  400)  GOTO  320 

IVALXYVAL1 JDATUN)*IGAIN)-(ILEVEL*IGAIN>+2047 
CALL  DAOUTPd.IVAL, ”170440) 

GOTO  315 

CALL  I POKE < "1704201 ”0)  1  Turn  off  clock 

TYPE  325 

FORMAT (/, '  REPLOT  DATA  T  l  ',*> 

ACCEPT  330 .YESNO 
FORMAT  <  A 1 ) 

IF< YESNO  .EQ.  'Y')  GOTO  300 
TYPE  400 

F0RNAT1/,'  View  wort  avamgw  data  (Y  or  N)  T  ',*) 
ACCEPT  410, YESNO 
F0RHAT1A1 ) 

IF < YESNO  .EO.  'Y')  GOTO  145 

CLOSE (UNIT-2, DISPOSE- 'SAVE') 

TYPE  430 

FORMATI/,'  OPEN  NEU  DATAFILE  T  l  ',*> 

ACCEPT  435 , YESNO 
FORMAT  <  A 1 > 

IF < YESNO  .EQ.  'Y')  GOTO  1 
CALL  EXIT 


8UDR0UTINE  UATCH 

COMMON  /BL0CK1 /JDATUH 

JDATUM-JDATUM+1 

CALL  IP0KE(”17042O,"133> 

RETURN 

END 


END 


FILMED 
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